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In eigener Sache 


Liebe Leserin ..lieber Leser! 

Eigentlich sollte ja die Rubrik "In 
eigener Sache” keine feste Ein- 
richtung in der GENIE DATA 
werden, es gibt aber wieder soviel, 
daß wir Ihnen mitteilen wollen, 
sodaß wir uns hier wieder zu Wort 
melden. 

Also, jetzt ist es endgültig : 

Der GENIE DATA Software-Ser- 
vice wird nicht erscheinen. 

Warum nicht? Ganz einfach! 
Einige der Autoren waren nicht 
bereit, uns ihre Programme für den 
Software-Service zur Verfügung zu 
stellen. Deshalb wird der Soft- 
ware-Service nicht erscheinen, 
denn wir haben uns gedacht , daß 
es sinnlos ist, Ihnen eine halbe Sa- 
che zu präsentieren. Aber keine 
Angst I Wir arbeiten momentan an 
einer Ersatzlösung, und wie die 
aussehen wird, können wir war- 
scheinlich schon in der nächsten 
GENIE DATA berichten. 

' Eine andere Sache ist der Sam- 
melband. Dieser wird zwar erschei- 
nen, aber erst im nächsten Jahr. 
Auch dieser Umstand ist ganz 
schnell erklärt: 

Bis jetzt sind ganz einfach zu 


wenig Bestellungen da, als das es 
sich lohnen würde, den Sammel- 
band jetzt schon zu drucken. Wir 
wollen verschiedenen Lesern noch 
etwas Zeit geben zu bestellen, und 
gehen dann in Druck. Den endgül- 
tigen Erscheinungstermin werden 
wir Ihnen rechtzeitig mitteilen. 

So, jetzt wird es erfreulicher! 

Wie Sie feststellen werden, beginnt 
in dieser GENIE DATA unser 
Kurs für die Programmierung in 
Assembler. Der Kurs wird von 
Thomas M. Binzinger geschrieben, 
der vielen von Ihnen als Autor 
fantastischer Spiele für Genie I 
und Colour Genie bekannt sein 
dürfte. Er schreibt diese Serie in 
einer lockeren Sprache und leicht 
verständlich für Anfänger. Wir hof- 
fen, daß Ihnen das Lernen mit 
diesem Kurs viel Spaß macht. 

Übrigens das Tolle an dieser 
Serie ist, daß sowohl Genie und 
TRS 80, als auch Colour Genie 
Besitzer teilnehmen können, denn 
gestellte Probleme werden auf bei- 
den Rechnern anschaulich gelöst. 

Ein "Selbstbau-Bon Bon” ha- 
ben wir in dieser GENIE DATA, 
ein weiteres kommt in der näch- 
sten. In dieser bringen wir Ihnen 


eine Recorder-Steuerung für Ihr 
Colour Genie, die vollautomatisch, 
ohne zusätzliche Software, funkti- 
oniert, in der nächsten bringen wir 
eine Selbstbau-Anleitung für eine 
RGB-Karte. (Damit Sie endlich 
mal ein vernünftiges Fernsehbild 
mit Ihrem Colour Genie bekom- 
men!). Übrigens wurden uns beide 
Artikel von der Firma Schmidtke 
Elektronik zur Verfügung gestellt, 
wofür wir uns hier herzlich bedan- 
ken möchten. 

So, jetzt haben wir noch eine 
Bitte an alle Artikel-Einsender. 
Verschiedene Einsendungen, die in 
dieser GENIE DATA nicht ge- 
bracht wurden kommen in der 
nächsten. Wir bitten um Ihr Ver- 
ständnis, daß nicht alles in diese 
Ausgabe gepaßt hat. 

Schreiben Sie uns weiter so 
fleißig Artikel I 

Mit dieser GENIE DATA hal- 
ten Sie die letzte in Händen, die 
vor Weihnachten erscheint. Des- 
halb sagen wir hier noch einmal 
allen Lesern, Abonnenten und In- 
serenten Dank für die gute Zusam- 
menarbeit in diesem Jahr. Selbst- 
verständlich auch allen Autoren. ( _ 
Ihre GENIE DATA Redaktion 
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Sie sind der Kommandant des Firebird, ein Raumschiff, daB seinesgleichen sucht. Bis 
an den Zähnen bewaffnet treten Sie den Angreifern aus dem Weltall entgegen um die 
Erde vor der Vernichtung zu bewahren! AUF SIE KOMMT ES AN COMMANDER. Beste- 
hen Sie den Kampf mit 16 Feindflotten! Sie haben unbegrenzte Schußenergie mit Ihren 
Neutronenstrahlen-Kanonen. Sie haben jeweils 2 A-Bomben. Und nach der Befreiung 
von jedem neuen Planeten erhalten Sie zusätzlich 2 A-Bomben. Es ist klar, bei Anwen- 
dung der A-Bomben ist eine ganze Feindflotte sofort eliminiert. Bei ganz gefährlichen 
Situationen können Sie einen Schutzschild aktivieren und trotzdem Feinde abschieBen! 


COLOUR-GENIE 


Produktion: Heinz Hübben 

Realisation und Special-Effects: T. M. BINZINGER 

Weltvertrieb: Fa. Heinz Hübben, Abt. Software- Verlag 

Mühlbachstraße 2, D-5429 Marienfels/Taunus 
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Jedes Spiel für 
COLOUR GENIE 
ist 2x auf Cassette 
kopiert I 

BESTELLUNGEN 
werden sofort am 
gleichen Tag an Sie 
abgeschickt I 
Bei Vorkasse 
durch Scheck oder 
Postbar, sparen Sie 
die Nachnahme- 
gebühren I 
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MEMORY 

Wieder einmal ein Tele-Spiel in der GENIE DATA. 
Aber diesmal keines, das scbiesst, sondern eins, das 
Ihr Gedächtnis trainiert. Seite 7 


KLEINANZEIGEN 

Wenn Sie etwas suchen oder wenn Sie etwas los- 
werden wollen, schauen Sie einmal in unsere Klein- 
anzeigen auf Seiteil 


RECORDER STEUERUNG 

Was viele andere Computer können, kann das Co- 
lour Genie von Hause aus nicht, nämlich den Re- 
corder steuern. Unsere Bauanleitung zeigt Ihnen, 
wie Sie Ihrem Computer die Fähigkeit vermitteln 
können. Seite 12 


ELEKTRONIK TEIL 3 

Diesmal zeigen wir Ihnen, wie man das Geheim- 
nis der bunten Ringe auf den Widerständen ent- 
rätselt. Selbstverständlich ist auch wieder das pas- 
sende Programm dabei. Seite 13 


ABENTEUERLAND 

Ein neues, tolles Abenteuerspiel für Ihr Genie 
I, II oder .111. Wenn Sie Mut haben, tippen Sie 
es ein und versuchen das Rätsel zu lösen. 

Seite 16 


PLOTTER 

Dieses Programm hilft Ihnen, auf Ihrem Colour 
Genie fantastische Grafiken zu erstellen, diese zu 
speichern oder sie auszudrucken. Mit diesem Pro- 
gramm können Sie ein richtiger ''Elektronik-Picas- 
so" werden. Seite 23 


HIRES HARDCOPY 

Wie man rationeil Grafiken des Cclour Genie 
mit schneller Geschwindig<eit ausdruckt zeigt 
Ihnen unser Programm ab Seite 26 


RESET . 

Wenn man beim TRS 80 den Reset-Taster betä- 
tigt, wird leider jedes vorhandene Programm ge- 
löscht. Wie man dem entgegen wirkt, zeigt unsere 
Bauanleitung ab Seite 27 


COMPUTERTAG 

Was alles beim ersten Computertag in Hof los 
war, erfahren Sie in unserem Bericht ab 

Seite 29 


DISKETTEN DATEI 

Dieses Problem ist Ihnen sicher bekannt: Man 
hat ein tolles Programm auf irgendeiner Diskette, 
weiß aber nicht, welche es ist. Schaffen Sie also 
mit diesem Programm endlich Ordnung I 

Seite 29 


GRES 

Bisher hatten wirviel zum Thema Colour Genie Gra- 
fik. Man kann aber auch mit dem Genie I, II oder 
III "malen". Benutzen Sie unseren Grafik-Editor 

ab Seite 33 


ASSEMBLER TEIL 1 

Thomas M. Binzinger, der Ihnen als Autor vieler 
toller Spiele bekannt sein dürfte, hat sich bereit 
erklärt. Ihnen sein Wissen zu vermitteln. Machen 
Sie also mit und lernen Sie Maschinensprache! 
Übrigens ist dieser Kurs so gehalten, daß sowohl 
Colour Genie Besitzer und TRS 80 oder Genie Be- 
sitzer mitmachen können ! Seite 36 


3D Körper 

Wie man mit dem Colour Genie dreidimensionale 
Grafiken macht, sehen Sie hier Seite 38 


EIN/AUSGABE IN MASCHINENSPRACHE 

Es ist nicht ganz einfach, in Maschinensprache 
Werte zu übernehmen oder zu übergeben, deshalb 
bieten wir Ihnen hier eine Reihe nützlicher Unter- 
programme, ’ Seite 41 

LAUFSCHRIFT 

Mit diesem Programm können Sie Ihr Genie zur 
Schaufensterreklame einsetzen. Dieses Programm 
hilft Ihnen große Schriften zu produzieren und 
vieles andere mehr. Seite 44 


MINIMON 

Wir veröffentlichen oftmals Programme in Maschi- 
nensprache. Wenn Sie diese eingeben und benutzen 
wollen, ist dies das richtige Hilfsprogramm I 

Seite 51 


HYPOTHEK 

Wollen Sie bauen? Oder brauchen Sie zu anderen 
Zwecken eine Hypothek? Dieses Colour Genie Pro- 
gramm hilft Ihnen Ihre Finanzer zu planen Also 

los 1 Seite 55 


GRAFIK ÜBERSETZER 

Übernehmen Sie hochauflösende Grafiken in den 
Textmodus des Colour Genie und schon können 
Sie jedes Bild mit Text beliebig mischen! Alles was 
Sie dazu brauchen ist das passende Programm und 
das liefern wir Ihnen ab Seite 57 


IN DER NÄCHSTEN GENIE DATA 

So, damit ist diese GENIE DATA beendet. Versäu- 
men Sie aber auf gar keinen Fall die nächste 
GENIE DATA! In ihr finden Sie unter anderem: 
Die Fortsetzung der Serien Elektronik und As- 
sembler, einen großen Colour Genie Software-Test, 
eine Colour Genie RGB-Karte zum selbstbauen (!), 
vjele tolle Programme und, und, und ... 


L. Röckrath L. Röckrath L. Röckrath 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 

TRS-80 Ml + III 
GENIE I, II + III 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 

TRS-80 Ml + III 
GENIE I, II + III 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 

TRS-80 Ml + III 
GENIE I, II + III 
COLOUR-GENIE 


Di« abeolul« BASIC-ERWEITERUNG 


NEWBAS 


• schneie und flexible ZeUenumnunwrierung 

• beHeblaee Zusammenladen mehrerer Programme 
von Kassette (MEHQE) 

• Suchen Im BASIC-Text (z. a nach Variablen! 

• hexadezimale Konstanten 

• DEFFN, INSTR, MID*, LINEINPUT, DEFUSH, 
USRO-9 (kompatibel zum D1SK-BASICI). 

Und jetzt zusätzlich zum alten Preis: 

• RESTORE »ul beliebige Zeile (RESTORE N) 

• UmleitimgvonSild&chtrmausgabenaulDruokerund 
umgekehrt (ROUTING). 

Alles In nur 1,7 KByte Br L»M O».— 

oder als SEDBAS mit integriertem BildsehlrTnedltor 

(SEDIT) Kr DM 89.- Inkl.MwSV 


TRS-80 Ml + III 
GENIE I, II + III 


Zeit ist Geld! 


Sparen auch Sie mit ARRAY 

beim Aufaetehtien und L«s*n von 

Feldern (auch Strings) bis zu 99% 
(Tape) oder 80% (Disk) Zelt und 
Speicherplatz (im Speicher und auf 
Kassette oder Diskette). 

Mit FIELD PRINT *n, A$(100) z. B. 
ARRAY für Tape (und Disk) kostet: 
nur 44- DU (54- DM) inkl. MwSt. 


F 


H. Grosser, L Röckrath: 

ROM-Listing 

e votol disassembliert und deutsch kommentiert 

• RAM-VO-Adnesen 

• 2 vollständige Ustings 3000H-37FFH (Amertk*- 
ntsdVDeutsch) und Vergleich 

• Vergleich Modell /Model III (Unterprogramme» 
e genaue Erläuterung beider Kassehentomurte 
t We« Ober 150 Selten 

' für nur 79 DM Ink). 7% MWSt. 



-ROM-Listing — 
TRS-80 Model III 


A e Breakpoints m.wählb.RST.weitsiWnverwendbarl 
• Blindlaut bis dal. Bedingungen 

C (bestimmte Roglsterslande, Spelchemigritte, 
Bete&lsgruppon, Tastenkombinatlon) 

E * Protokoltausfl. mH dlsass. Befahl + Rofljster oder 
Adreflberelche 

SBUG (relocatlbei) 

der einzige Monitor, der nie da 
Hegt, wo Ihr Programm hin soll! 

Außerdem: DISASSEMBLER 
prog. TRACE (auch ROM + DOS) 
lieferbar für Disk + Kassette 

Weitere Informationen über Sonder-Info 
oder in mc 5/83, S. 29 

DM 139.- (inkl. MwSt.) 


TRS-80 i! 
GENIE 1, 


Noppiusstraße 19, 5100 Aachen \ 
Telefon (02 41) 3 49 62 

— ROM-Listing — 
COLOUR-GENIE 


NEU! 

N. Heicke, L. Röckrath: 

ROM-Listing 

• vollst. dlsassembHert und kommentiert 
(OOOOH-3FFFH) 

• RAM-I/O-Adressen 
■ neueste Version! 

• Bildschirmformate, Speicheraufteilung 

• genaue Unterprogrammerklöningen 
für den Programmierer 

• Ein absolutes Muß für jeden Anwender 

für nur 59 DM (inkl. 7% MwSt.) 


Eine neue Dimension-: 

Bildschirmeditor (SEDIT) 

Sprengen Sie endlich die Fesseln des EDIT- 
Befehls und bewegen Sie sich völlig Irei über den 
Bildschirm und lügen Sie ein oder löschen Sie, 
woSiawollen. OM 39,— 

Auch für Disk-Systeme auf Disk für GDOS 
TRSDOS, NEWDOS80 VI .0 + V2.0. 

Noch nicht überzeugt? 

TESTKASSETTE 

völlig unverbindlich gegen DM 2.- Schutzgebühr 
in Briefmarken anfordern. (Auch für DISK-User.) 
Alle Preise inkl. 13 % MwSt.) 


WEITERE 
HARD- UND 
SOFTWARE 
FÜR COLOUR 
OENIE AUF 
ANFRAGE. 

SONDERPREISE! 


L. Röckrath L. Röckrath 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


-ROM-Listing 

TRS-80/VG 


ROM-Listing 

• Vollst. dlsass. und deutsch kommentiert; 

• RAM-I/O-Adressen; 

• Vergleich der verschiedenen TRS-80/ 
VIDEO-GENIE-Versionen; 

• 150 genau erläuterte Unterprogramme; 

• und vieles mehr (s. auch Kritiken in mc 
1/82 und cp 13/82). 

129 Seiten gebündelte (und gebundene) 

Information nur DM 60,- 


L. Röckrath 

Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


FQr schnelle Anfragen : GENIE DATA Kontaktkarte benutzen 1 
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MEMORY 

Bei diesem Spiel für das Colour grauen Zellen. Es geht nämlich da- Ansonsten ist zu diesem Spiel ei- 
Genie handelt es sich um ein Trai- rum, sich die Positionen von Zah- gentlich nichts mehr zu sagen. 
nings-Programm für Ihre kleinen len in einem Feld zu merken. Erwin Weigend 

10 CLS 

20 CLEAR 1000 

30 DIM T (24) : DI MF (24) s DIMZ (24) 5 DI MG (24) 

40 PRINT: PRINT: PRINTS PRINT 
50 COLOUR 7 

üO PRINTTAB (7 ) , ^**^^**-*fM‘*******:**:*i!*#i 

70 PRINTTAB (7 ) "* * 

30 PRINTTAB <7 > "* ZAHLEN— MEMORY * 

90 F'RINTTAB (7 )"* * 

100 PRINTTAB (7 ) " ^sn*^^«*^!««*«»:***»»«*»»««*!««**** 

110 PRINT: PRINT 

120 FOR 1=1 TO 500! NEXT I 


8 GENIE DATA 


SOFTWARE 


130 COLOUR 4 

140 PRINTH527.- "von Erwin WEIGEND 
150 F'R1NT®612 j "Maulbronner Str. 51 
160 PRINT©652, ”7129 GUEGLINGEN 
170 FRINTS732.- "Tel. 07135-7778 
180 REM: SEPTEMBER 1983 
190 PRINT: PRINT: PRINT:PRINT 
200 CDLDUR 1 

210 PRINTTAB ( 10) "< Bitte warten > 

220 REM: ERZEUGUNG DER ZAHLEN 
230 FDR 1=1 TO 24 

240 PRINT0957 ? ✓ 

250 T ( I ) =RND (24) 

260 FDR H= 1 TO I 

270 IF TCI)=T(I~H> THEN 250 

2B0 PRINTI2957, " " 

290 NEXT H 
300 NEXT I 
310 PRINT@527f " 

320 PRINT0612, " 

330 PRINT@652j 11 
340 PRINT8732 ? " 

350 REM: ERZEUGUNG DER ABFRAGE REIHENFOLGE 
360 FOR 1 = 1 TO 24 ■' 

370 PRINT0922, "i" 

380 F ( I ) =RND (24) 

390 FOR H=1 TO I 

400 IF F ( I ) =F ( I -H) THEN 380 

410 PRINT®922? " " 

420 NEXT H 
430 NEXT I 
440 CLS 

450 PRINT: PR I NT : PR I NT : PR I NT 
460 COLOUR 2 

470 PRINT"WAEHLE DEINEN SCHWIERIGKEITSGRAD" 

480 PRINT 

490 PR I NT " < 1 > ZEIT ZUM EINPRAEGEN: 1 MIN <1>" 

500 PRINT"<2> ZEIT ZUM EINPRAEGEN: 2 MIN <2> 

510 PR I NT " < 3 > ZEIT ZUM EINPRAEGEN: 3 MIN <3> 

520 PRINT"<4> ZEIT ZUM EINPRAEGEN: beliebig <4> 

530 PR INT: PR INT: PR INT 
540 INPUT "WAEHLE: " 5 T 
550 IF T=1 THEN TZ=60 
560 IF T=2 THEN TZ=120 
570 IF T=3 THEN TZ=180 
580 IF T=4 THEN TZ =500 
590 IF T>4 OR T< 1 THEN 540 
600 CLS 

610 FOR 1=1 TO 4 
620 COLOUR 9 

630 PR I NTTAB < 2 ) STRING* < 37 , 202 ) 

640 FOR 11=1 TO 4 

650 PR I NTTAB <2>CHR*< 202) 5 TAB (8) CHR* (225) ? TAB ( 14) CHR* (225) ; TAB (20) CHR* < 
225) T AB ( 26 ) CHR* ( 225 ) ' T AB ( 32 ) CHR* ( 225 ) s TAB (38) CHR* (202) 

660 NEXTI I : NEXTI 

670 PRINTTAB (2) STRING* (37.-202) 

680 COLOUR 3 

690 FOR 1 = 1 TO 24: READZ ( I ) : PRINTlüZ ( I ) +82? "** " : NEXT 
700 COLOUR 4 

710 PRINTI5893, "ZAHLEN-MEMORY" 









10 GENIE DATA 


SOFTWARE 


720 FOR 1=1 TD 1500: NEXT 

730 FOR 1=1 TO 24 

740 PR I NTffiZ ( I ) +B 1 f T (I ) : NEXT 

750 IF T Z =500 GOTO 1250 

760 PR I NTSBB2, STR I NG* ( 30 ,32) 

770 COLOUR 5 : PR I NTG897, " ZEIT: "TZ " " 

780 FOR 1=1 TO 500: NEXT 

790 TZ=TZ— 1 

800 IF T Z >0 THEN 770 

8 1 0 PR I NTISB82 , STR I IMG* ( 37 , 32 > 

820 FOR 1=1 TO 24 
830 CQL0UR3 

340 PRINTSZ < I > +81 , ” # " 

850 NEXT 

860 DATA 43,49,55,61,67,73 

870 DATA 243,249,255,261,267,273 

380 DATA 443,449,455,461,467,473 

890 DATA 643,649,655,661,667,673 

900 COLOUR 6 

910 FOR J=1 TO 24 

920 PR I NT9880 , STR ING* (20, 32 ) 

930 PR I NT @920, STRING* (20, 32) 

940 COLOUR 4 

950 FOR Y=1 TO 3 s I=F <J ): PRINTSZ ( I ) +2, CHR* (32) : FOR H=1 TO lOOsNEXT H: 
PR INTSZ ( I > +2 , "4 " : FOR H= 1 TO 1 00 ■' NEXT H 5 NEXT Y 
960 COLOUR 4 

970 PL AY ( 1 , 6 , 1 , 1 0 ) * PLAY (2,6,3,10): FOR H= 1 TD 40 : NEXTH* PLAY ( 1 , 1 , 1 , 0 ) : PL A 
Y<2, 1,1,0) 

980 PRINTS8B2, "DEIN TIP" ?: INPUT B(J) 

990 PRINTSZ (I ) +2, 11 " : ; . 

1000 IF G ( J > =T ( I > THEN 1080 

1010 F=F+1 ■ 

1020 PLAY (1,4,1,12): FOR H=1 TO 80s NEXTH 
1 030 PLAY ( 2 , 3 , 6 , 1 2) : FOR H= 1 TO 80 s NEXTH 
1040 PLAY (2, 1,1,0) 

1050 PLAY ( 1 , 1 , 1 , 0) 

1060 PRINTSZ <I)+B1," 

1070 GOTO 1110 : ->- r 

1080 PLAY (1,5,5, 15) : FOR H=1 TO 50: NEXT: PLAY ( 1 , 5, 3, 15) '■» FOR H=i TO 50 

: NEXT : PLAY (1,5,1,15) : FOR H= 1 TO 50: NEXT : PLAY ( 1 , 1 , 

1090 COLOUR 7 

1 1 00 R=R+ 1 : PR I NTSZ ( I ) +82 , " * " : GOTO 1110 
1 1 1 0 COLOUR 7 : PR I NTS905 , " R I CHT IG"R " ^ ; 

1120 PRINTS945, "FALSCH "F" 

1130 NEXT J 

1140 PRHMTS882, STRING* ( 15, 32) 

1150 FOR H=1 TO 1000: NEXT 

1160 COLOUR 5 ■ "V • 

1170 FÜR 1=1 TO 24: PRINTSZ (I) +41, T(I> : NEXT 
1180 BE=PEEK (32767) 

1190 IF R >BE THEN 1200 ELSE 1210 

1200 COLOUR 3SPRINTS882, "DAS IST BESTERGEBNIS ! " : BE=R: GOTO 1 22.0 
1210 COLOUR 3 : PR I NTSB82 , " BESTERGEBN 15:" BE " " : 

1220 COLOUR 10: PRINTTAB (2) "NOCHMAL? <J/M>" 5 : INPLJT A* 

1230 POKE 32767, BE 

1240 IF A$=" J " THEN RUM ELSE END 

1250 FOR H=1 TO 1500: NEXTH: PRINTSB82, "EINPRAEGEN, DANN EINE TASTE DRUE 
CKEN ! " 

1260 T*= INKEY*: IF T$="" THEN 1260 
1270 GOTO BIO 
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KLEINANZEIGEN 


Suche Literatur für TRS-80 
z.B. 80 Micro u. ä. G. Drey- 
er Tel. 061 21/562238 

Tausche V.G.-Prog. (100 
St.) (Cassette). IRIS OT- 
TEN - Hermann-Ost-Str. 16 
5000 Köln 80 


Computer Junkie verkauft 
Sammlung I Inkl. Genie-Tei- 
le. Liste gegen 1 DM. Mc 
Nicol, Postf. 1205, 6128 
Höchst 


Verkaufe 16K-Erw. f. CG 
neu f. 80 DM. Tel. 02137/ 
77455 


GENIE III Anwender sucht 
gleichen im Raum Geilenkir- 
chen-Herzogenrath-Alsdorf 
zw. Erfahrungs-Austausch. 
Zuschriften unter Chiffre 
GD/05/83/01 an Ralf M. 
Hubben, GENIE DATA, 
Verlag für Computertechnik 
5429 Marienfels/Ts. 


Visicalc-Demodisk für TRS 
80! Ideal auch für Händ- 
ler da selbständiger Ablauf 
mit Wiederholung! (Schau- 
fenster.) Auch Dialogbetrieb 
zum erlernen I Disk für TRS 
80/ VG nur 50,-1 07321/ 
24315 


Second-Hand-Computer 
Zubehör-Datencassetten-Li- 
ste von: Udo Jourdan, 

Darmstädterstr. 66, 6080 
Groß-Gerau, Tel. 06152- 
81704 


Neue Programme für TRS/ 
VG: Laufschrift, Quadrato 
und Serpents (100% Maschi- 
nensprache) für 12,50 DM/ 
PGM incl. Kassette und Por- 
to zzgl. NN oder per VR- 
Scheck. Alle drei DM 30! 
Jörg Tegeder, Keplerstraße 
5, 5206 Neunkirchen-Seel. 1 


Genie User sucht Kontakte 
und Tauschpartner (V.G. I 


64K) Kurt Wagner, Vieh- 
trlfftstr. 77, 6725 Römer- 
berg 3 

Genie II, Diskettenlaufwerk, 
Expander, Bildschirm und 
Drucker zu verkaufen. Preis 
nach Vereinbarung. 

Tel.: 04166/7291 


Suche Comp.-Club in mei- 
ner Nähe oder Genie Ill-An- 
wender (bin Neuling!) 
02451-41188 


Colour Genie und viel Soft- 
ware + Rec. + viel Lit. für 
650 - 02626/7377 


Suche Colour-Compiler so- 
wie weitere Soft- Hardware 
für alle Genies. B. Eckstein 
Hauptstr. 1385014 Kerpen 1 


Ergänzung zum original TCS 
Colour Assembler: 3,3 KB 
Disassembler in Maschine 
nur 20 DM. Info 80 Pf bei 


Jan Hamming, Bert-Brecht- 
Str. 4, 6107 Reinheim 3 

* COLOUR GENIE * 

SPRITE-GRAFIKEN IM 
FGR-MODUS. Jetzt schrei- 
ben SIE prof. Spiele, Hand- 
buch Inkl. Editor + Routi- 
nen für nur 28,- gegen NN: 
P. THOMAS 

‘Köllenhof 22, 5307 Wacht- 


Paral. Printerinterface f. Ge- 
nie I 95,-1 Ronald Stöhr jr. 
Buhlenweg 31, 7750 Kon- 
stanz 


Raum Hamburg. Wer hat In- 
teresse an Gründung eines 
Colour-Genie-Clubs. Bitte 
melden bei Th. Kolbeck, 
Trettaustr. 13, 2102 Ham- 
burg 93 


Erfahrungsaustausch Colour 
Genie? H.-J. Winterscheid, 
Bennauerstraße 1, Bonn 1, 
0228/224353 


Für Heim & Hobby: Colour-Genie 


Das Colour Genie 

Vergleichen Sie doch einmal: Welcher Com- 
puter bietet Ihnen soviel wie das Colour 
Genie, und das zu einem so guten Preis? 

* Z 80 CPU - ein Industriestandard 

* Professionelle Schreibmaschinen-Tasta- 
tur. (Keine Gummitasten, kein Fingersalat 
beim Tippen!) 

* 16 K RAM (Arbeitsspeicher! schon im 
Grundgerät 

* 16 K ROM mit dem org. Microsoft Le- 
vel II -Basic, erweitert mit Grafikroutinen: 
TRS 80 - kompatibel 

* Keine teure Modulbox erforderlich 

* RAM-Erweiterung direkt einsteckbar 

* Druckerinterface bereits eingebaut 

* Serielle Schnittstelle eingebaut 

* Jeder Kassettenrecorder anschließbar, 
auch der schon vorhandene 

Monitor und TV -Ausgang 

* Und, und, und 


SCHMIDTKE 

— | electronic 

I Sandkaulstraße 84/86 
! 5100 AACHEN 

I Tel. 0241 -232 17 


Preise und Zubehör : 

Colour Genie mit 16 K RAM, 16 Farben, jetzt mit 
NF-Verstärker und eingebautem Lautsprecher 575,- DM 

Erweiterungsmodul auf 32 K RAM 98,- DM 

Colour Genie direkt mit 32 K RAM 666,-- DM 

Druckeranschlußkabel Centronics-Parallel 98,- DM 

Power -Joystick ab 75,- DM 

Analog Joysticks (2 Stück mit lOer-Block) 245,- DM 
Kassettenrecorder zum CG passend ab 89,~ DM 

Technisches Handbuch mit Schaltplänen 49,- DM 

ROM-Listing, deutsch kommentiert' 59,- DM 

Matrixdrucker, DIN A4 breit, mit hochauflösender 
Grafik, Umlaute, echte Unterlängen, etc. 598,- DM 


Software - Programme : 

Plotter - zeichnet mathematische Kurven 39 - DM 

Basic Compiler - erzeugt Maschinensprache 69,- DM 1 
Z 80 Assembler - zur Eingabe in Memonics 69,- DM 
Monitorprogramm 39,- DM 

F ROG-MAN, das bekannte Video Spiel 39,-- DM 

PAC-LAB, das beste PAC-MAN, das es je gab 39,- DM 
PAC-LAB 1 1 , das PAC-LAB für Spezialisten 49,- DM 

Colour Kong, berühmt und faszinierend 69,- DM 

Katalog mit über 85 Spielen und anderen Programmen für 
Schule und Hobby kostenlos anfordern! 


Geschäftszeiten : 

Mo. - Fr. 10.00 Uhr bis 13.00 Uhr 

14.30 Uhr bis 18.30 Uhr 
Sa. 10.00 Uhr bis 14.00 Uhr 

Donnerstags geschlossen 


Service: 

Eigene gut ausgerüstete 
Service-Werkstatt. 

Computer -Fachberatung. 
WIR KENNEN UNSERE 
COMPUTER I 
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Recorder 

Steuerung 


TRS 80 und PET Besitzer haben 
sicherlich eine praktische Funk- 
tion ihres Gerätes schätzen ge- 
lernt: Die automatische Motor- 
steuerung ihres Cassettengerätes. 

Die Befehle zum Lesen bzw. 
Abspeichern eines Files bewirken 
nämlich auch ein rechtzeitiges 
Starten und Stoppen des Motors. 

Nun gibt es Heimcomputer, die 
nicht über diese Fähigkeit verfü- 
gen. Das legt die Frage nahe, ob 
man ihnen diese angenehme Eigen- 
schaft nicht nachträglich ver- 


mitteln kann. Nun, man kannl 

Wie das Funktionieren kann, 
wird kurz erläutert, dann wird ei- 
ne praktische Ausführung für das 
Colour Genie beschrieben. 

Die Befehle CSAVE und 
CLOAD bewirken, daß sich im 
Rechner an verschiedenen Stellen 
"etwas tut". So veranlaßt CSAVE, 
daß ein Basic-File als serieller Da- 
tenstrom über den Cassettenport 
ausgegeben wird, und anhand des 
Schaltbildes läßt sich ein Punkt 
finden, an dem das Signal als TTL- 
Pegel abgenommen werden kann. 
Gebe ich diese Signale auf ein re- 


triggerbares Monoflop, dessen 
Zeitkonstante länger als die Perio- 
dendauer der Clock ist, so bekom- 
me ich für die Dauer der Aufzeich- 
nung ein High Signal am Ausgang. 

CLOAD fragt ständig den Cas- 
settenport ab; und es läßt sich wie- 
derum anhand des Schaltbildes ein 
Punkt finden,- an dem dieses Stro- 
besignal abgenommen werden 
kann. In der Regel ist das Strobe- 
signal eine Verknüpfung der Port- 
adresse mit dem Read-Signal. 
Auch hiermit kann ich in gleicher 
Weise ein Monoflop ansteuern und 
erhalte so ein High-Signal für die 


” Neues für die GENIE’s 

GRAPE Universelles Pionsystem für GENIE l/ll und III 
Für Drucker m.Ekuelnadelanst. u. Plotter. In Verbindung m. hoch- 
auflösender Bildschlrmgrafik weitere fantastische Möglichkeiten. 
Deutsches Programm, nur f .Diskette, mit Handbuch 1 95.- DM 
Hochauflösende Grafik 384 x 192 Blldpunkte. Platine zum Einbau 
In GENIE l/ll u.TRS-80. Treibersoftw. auf Kassette wird mitgeliefert 
FERTIGPLATINE 369.- DM BAUSATZ 258.- DM 

Diskettensoftware, mit Datenträger, Aufpreis 8.- DM 

Praktisches Arbeiten mit Dateien von C.D. Hoffmann 
Deutsche Anleitung f.d. Marked- u. Flxed-Item-Dateien. Inhalt 
MU-, MF-, Ml-, FF- u. Fl-Dateien/Wie eröffnet u. wie schließt man 
die Dateien?/Schreiben u.Lesen v.Dat.,usw.,m.Beleplel. 45.- DM 
Disk & andere Geheimnisse v.H.C.Pennlngton. Ein Interessantes 
Buch über sonst nicht erhält!. Informationen. Ratgeber zur Daten- 
rettung u. Datenwiederauffindung, deutsch 39.- DM 

Druckers nschiußksbel für Colour-GENIE 
Mit IC zur Pufferung der Status-Signale 79— DM 

Adpater dazu z.glelchz Anschluß v.Drucker u. Joysticks 36— DM 
Rekordersteuerung f. Colour-GENIE Ein- u. Ausschalten m.d. 
Computer mit: CLOAD, CSAVE. SYSTEM, INPUT u. PRINT. Mit 
LED-Anzeige, nur auf den BUS stecken. . 69— DM 

Portsteuerung für Colour-GENIE, GENIE I und II 
Darauf haben Sie schon lange gewartet Ein Zusatz z. Geräte- bzw. 
Maschinensteuerung. Das Grundgerät beinhaltet 16 Leitungen, 
TTL-Pegel und 4 Steuerieltungen TTL 175— DM 

Adapter mit 1 6 Relais als Ausgänge für 220 V 1 0A 280- DM 
Adapter 16 Elng. ü. Optokoppler, z.Einlesen v.SJgnalen 280- DM 
Adapter 8 Relaisausgänge 220V 1 0 A 

und 8 Eingänge als Optokoppler 280— DM 

Außerdem führe Ich die geaamten GEN iE -Geräte von TCS 
Informationen gegen DM 0.80 Rückporto. Lieferung solange Vor- 
rat, gegen Nachnahme oder Vorkasse, zuzüglich Porto. 


H.Schaber ■ Genie-Computer 
DJ 9 RE • 7707 ENGEN 

Industriestr. 4a • Tel. 07733/8401 


Dauer des Einlesens. Die Ausgän- 
ge der Monoflops werden über 
Dioden oderiert und verknüpft 
und steuern einen Transistor an, 
der das Relais zum Steuern des 
Motors durchschaltet. 

Eine Schaltung, die dieser Be- 
schreibung entspricht, zeigt Abbil- 
dung 1. 

Die Lage der IC's ist dem tech- 
nischen Handbuch für das Colour 
Genie zu entnehmen. Die An- 
steuerung der Monoflops erfolgt 
von IC 52 (74LS367) Pin 1 und 
IC 61 (747C) Pin 2. 

Hier stehen die Signale FF und 
RD (Portadresse und Read bzw. 
Cassette Write) mit TTL-Pegel an. 
Die Schaltung ist erprobt und 
schon in einigen Exemplaren nach- 
gebaut, sie arbeitet beim Verfasser 
zur vollen Zufriedenheit. Eine De- 
tailschaltung des Rechnerteils 
zeigt Abbildung 2. 

Mein besonderer Dank gilt Herrn 
Heiko Reqard aus 3170 Gifhorn,, 
der durch die Ausarbeitung der 
Schaltung diesen Artikel über- 
haupt möglich gemacht hat. 

Uwe Schmidtke 
Sand kau tstraße 84 
5100 Aachen 



ELEKTRONIK 3 

Für viele sind die Farbringe auf wert, bzw. aus dem Zahlenwert finden wir vier Farbringe. Die bei-. 
Widerständen immer noch ein den Farbcode, den ersten Ringe geben den Zah- 

Buch mit sieben Siegeln. Doch bevor Sie jetzt das Pro- lenwert an, der Dritte die Anzahl. 

Mit dem nachfolgenden Pro- gramm eingeben, einige Worte der Nullen. Der vierte Ring steht 
gramm ist das Ganze ein Kinder- zum Farbcode. Auf Kohieschicht- für die Toleranz des jeweiligen Wi- 
spiel. Es ermittelt aus dem ein- widerständen, die wohl am häu- derstands. 
gegebenen Farbcode den Zahlen- figsten gebrauchten Widerstände, Die Ferbtabelle: 
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* 


i 


! 



Farbe 




4. Ring 

schwarz 

0 

0 

* 10° 

— 

braun 

1 

1 

* IO 1 

— 

rot 

2 

2 

• IO 2 

öS 

CM 

1 

+ 

orange 

3 

3 

* IO 3 

— 

gelb 

4 

4 

’ IO 4 

- 

grün 

5 

5 

* 10 5 

— 

blau 

6 

6 

* IO 6 

- 

violett 

7 

7 

- 

- 

grau 

8 

8 

- 

— 

weiß 

9 

9 

- 

— 

gold 

- 

— 

* IO“ 1 

+- 5% 

Silber 

■ — 

— 

* 10" 2 

*— 10% 


Ein Beispiel: und die Toleranz von -t-— 5%. für den Bastler selteneren Wider- 

Ein Widerstand hat die Farbrin- Früher oder später wird ein Wi- stände, nicht verarbeiten. Für den 
ge orange, weiß, rot und gold. derstand mit fünf Farbringen vor Interessenten dürfte es kein Prob- 

Orange und weiß stehen für den Ihnen liegen. Es handelt sich da- lern sein, das Programm mit Hilfe 

Wert 39, rot ergibt * 10 2 und gold bei um einen Metallfilmwider- der unten stehenden Tabelle um- 

die Toleranz +— 5%. stand, der eine höhere Genauig- zuschreiben. 


Der Widerstand hat den Wert 39 keit und einen höheren Preis auf- Farbtabelle für 


* 10 2 Ohm, das sind 3,9 kiloohm 

Farbe 1. 

weist. Das Programm kann diese, 

Ring 2. Ring 3. Ring 

Metallfilmwiderstände: 
4. Ring 5. Ring 

schwarz 

0 

0 

0 

* 10° 

— 

braun 

1 

1 

1 

* IO 1 

+- 1% 

rot 

2 

2 

2 

* 10 2 

+- 2% 

orange 

3 

3 

3 

* IO 3 

- 

gelb 

4 

4 

4 

* IO 4 

— 

grün 

5 

5 

5 

* 10 5 

+- 0.5% 

blau 

6 

6 

6 

* 10 6 

— 

violett 

7 

7 

7 

— 

— 

grau 

8 

8 

8 

- 

- 

weiß 

9 

9 

9 

— 

— 

gold 

- 

- 

- 

* IO" 1 

— 

Silber 

— 

— 

— 

* IO" 2 

— 

Auch hierzu ein Beispiel: 

gelb, weiß, schwär? und braun. 

te Ring gibt den Multiplikator an, 

An einem Widerstand befindet 

Die ersten drei Ringe stehen jetzt 

hier * IcA Der letzte Ring ergibt 

sich die Farbkombination rot. 

für den Zahlenwert: 249. Der vier- 

eine Toleranz von +— 1%. 


Bernd Kaiser 


10 REM ***************************************************** 
20 REM ****** ****** 
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30 REM ****** C. BY B. KAISER JUN ’ 83 ****** 

40 REM ****** ****** 

50 REM ***************************************************** 

60 CLEAR200 : RESTORE : DEFSTR A 
70 DNERR0RGDTD680 
BO SOSÜB 520 

90 PRINT1768. "FARBCOD IN WIDERSTANDSWERT (1) ODER WIDERSTAND IN FARBCOD 

(2) ?" 

lOO POKE 16537,0 

110 E*= INKEY*: IFE*< >" 1 " ANDE*< >"2"THEN1 10 
120 I FE*= "2 " THEN240 

130 PRINT: INPUT "FARBE RING 1, RING 2, RING 3, RING 4 " ; A ( 1 ) , A ( 2) , A <3> , A ( 
4) 

140 F0RI=1T03 
150 READC*,C 

160 IFC*=A ( I ) THENB ( I ) =CELSE150 
170 RESTORE 
180 NEXT 

190 D= ( B ( 1 ) * 10+B (2) ) * 10ÄB (3) 

200 IF A(4) ="RT"THEN T=2:G0T0450 
210 IF A <4) ="SI "THEN T=10 :G0T045O 
220 IF A <4> = " GO "THEN T=5:G0T0450 
230 GOT 0630 

240 INPUT" WIDERST ANDSWERT " : D# 

250 INPUT "TOLERANZ (NUR DEN ZAHLENWERT) " ; T 
260 IFD#< 10THENB (3) =B (3) -1 : U=1 : D#=D#* 10: G0T0260 
270 IFU< >1 THENB (3) =LEN (STR* (D#) ) -3 
200 V=CSNGCD#/ (10ÄB(3) ) ) 

290 D*=STR*<V> 

300 HA$=MID*(D*,2. 1) 

310 B ( 1 ) = VAL ( HA* ) 

320 HB*=MID*CD*,3, 1) 

330 B (2) =VAL (HB*) 

340 F0RI=1T03 
350 READ C*,C 

360 I FC=B < I ) THENA < I ) =C*ELSE350 
370 RESTORE 
380 NEXT 

390 I FT=2THEN A ( 4 > = " RT " : GDT0430 
400 1 FT=5THENA ( 4 ) = " GO “ : G0T0430 
410 IFT=10THENA (4) ="SI " : G0T0430 
420 A <4) =" " 

430 IFU=1THEND#=D#*(10ÄB(3) > 

440 D=D# 

450 PRINT§586, A(l) ; : PR I NT §59 1 , A ( 2 
) ; : PRINT§596, A (3) ; : PRINTS601 , A ( 4) 

• 

460 PR I NT §61 5. D; 

470 PRINT" OHM"; 

480 IFT>0THENPRINT§679, "TOLERANZ 
= +— " ; T ; " 7."; 

490 PRINT§970, "NEU AUF TASTENDRUC 
K"; 

500 G*= INKEY*: IFG*=" "THEN500ELSE6 
0 

510 DATASW, 0, BR, 1 , RT, 2, OR, 3, GE, 4, 

GN , 5 , BL , 6 , V I , 7 , GR , 8 , WS , 9 , GO , — 1 , S I 

, -2 

520 REM Bildschirm 
530 CLS 


SCHREIBEN SIE 
PROSA 

PROSA ist die Profi-Textverarbeitung für 
Colour Genie (32KB) 

■ horizontales Verschieben des Bildschirmfensters (50 Zeichen) 

- 125 Zeichen /Textzeilo, Textlängo ca. 14000 Zeichen 

- Zeilenlineal, Statuszeile, Spooling 

- Cursorsteuerung mit den Pfeiltasten = voll seitenorientiert 

- Eintugen, Löschen, Kopieren von Zeichen, Zeilen, Abschnitten 

- Umlaute, Fließtexteingabe, Blocksatz auf dem Bildschirm 

- Vorwärts- und RUckwarts-Tabulator 

- flexible Steuerzeichenverarbeitung = für alle Drucker geeignet 

- für Kassetto und Diskette 

Prosa kostet DM 145,- Händleranfragen erwünscht 
Karl -Heinz Offenhäuser 
Software-Technologie & Anwender- Beratung 
Hauptstraße 113 6901 Gaiberg (06223)40323 
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540 PRINTS 10, "F ARBCODUMRECHNUNG" 

550 PRINT179, "-fuer Widerstaende" 

560 PRINT : PRINT"KURZZEICHEN DER FARBEN 

570 PRINT "SCHWARZ = SW", "BRAUN * BR", "ROT = RT" , "ORANGE * GR", "GELB = G 
E " , " GRUEN = GN " , " BLAU = BL" , "VIOLETT = VI", "GRAU = GR", "WEISS = WS","SI 
LBER =» SI " , "GOLD = GG" 

580 PRINT 

590 FÜRX=16T060: SET (X,25) :SET (X, 31 ) : NEXT 
600 FORX=6T015: SET ( X , 28) : SET ( X+54. 28) : NEXT 

610 FOR Y=25T03 1 s SET ( 16, Y) : SET ( 17, Y) : SET (26, Y ) : SET (27, Y) : SET (36, Y) s SET (3 
7, Y) : SET (46, Y) : SET (47, Y) : SET (59, Y) : SET (60, Y) : NEXT 
620 RETURN 
630 REM FEHLER 

640 PRINT i960, "FEHLERHAFTE EINGABE"; 

650 FOR J=1T0700: NEXT 

660 PRINT §896, STRING* (120, 32) ; 

670 GQT090 
680 RESUME630 

«»**** Ä = HOCHPFEIL!!! ****** 


Abenteuerland 


Abenteuerland ist ein Adventure- 
Spiel, in dem man mittels kurzer 
Befehle, die aus zwei Wörtern be- 
stehen, einen Androiden durch ein 
Land schickt, auf der Suche nach 
einem Schatz. Um an diesen 
Schatz zu gelangen, muß der Spie- 
ler diverse Aufgaben lösen und viel 
experimentieren. Der Wortschatz 
des Androiden beträgt ca. 70 Wör- 
ter, also genug, um alle Situati- 
onen zu meistern. 

Das Programm ist auf einem 
TRS 80 Model 1 , Level 2 geschrie- 
ben worden und belegt ca. 16K. 
Da es aber ein reines Textspiel 
ohne jede Grafik ist und da keine 
Maschinenspracheprogramme da- 
bei enthalten sind, kann das Pro- 


gramm von jedem anderen Basic- 
Computer übernommen werden. 

Einen groben Überblick über 
den Programmaufbau bietet die 
folgende Tabelle: 

80-120 

Initialisierung 

1000-1140 

Ausgabe der Position und Umge- 
bung 

1150- 1500 

Befehlseingabe und Ansprung der 
befehlsausführenden Programm- 
teile 

3000-4110 
Befehlsausführung 
8000 - 8230 
Unterprogramme 
9000-9510 


Endausgabe 
10000 - 12000 
Datenblöcke 
10000-10060 

Unveränderlicher Inhalt eines Fel- 
des 

10080- 10340 
Ausgabesätze 
10360-10370 

Beweglicher Inhalt der Felder 
10510-10570 

Mögliche Bewegungsrichtung in 
den einzelnen Feldern 
10600 

Liste der beweglichen Gegen- 
stände 


Frank Nicklisch 


80 CLEAR12Q0 
90 DEFINTA— Z 

lOO DIMF (9, 13) ,M*(52), I* (9, 13) , D (9, 13) ,14« (52) ,R*(2) , IV$(28) , IV (28) ,A*(2 
5) 

HO R<> (0) = " ICH BEFINDE MICH “ s R* ( 1 ) =" ICH STEHE “ : R* (2) =" ICH BIN JETZT " 
120 X*1:Y“12 
980 GOSUB 10000 
lOOO CLS 

lOlO PR INTTAB( 25) "ABENTEUERLAND " 

1020 PRINT" 


1030 A*=R*(RND(3>-1) 
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1040 
1045 
1050 
1060 
1070 
1080 
ST.. 
1090 
ilOO 
1110 
1120 
1130 
1140 
1150 
1 160 
1170 
1 180 
1190 
1195 
1230 
1240 
1250 
1255 
1260 
1265 
1270 
1280 


PRINTA*sM*<F(X,Y> ) 

IFLEN < I * < X , Y > ) <2THENPR INT s GOTO 1 060 

IFRND (O) >. 3THENPRINT" ICH SEHE i " ; I« (X, Y ) ; CHR* (24) ; 

PRINT SPRINT " MOEGLICHE AUSWEGE s " 

IFDIX, Y> AND16THENPR3NT"NQRDEN, SUEDEN, OSTEN, WESTEN" : GOTO 1 140 


" ELSEPRINT 


IFD < X, Y> =32THENPRINT"K£IN AUSWEG 
' s GÜT 09000 'ytt 

I FD ( X , Y ) AND 1 THENPR INT " NORDEN, " ; 

IFD (X, Y) AND4THENPR INT "SUEDEN, H ; 

IFD ( X , Y ) AND2THENPR INT " OSTEN, " \ 

IFD (X, Y) AND8THENPR INT "WESTEN, w ; 

PRINTCHR*(24> ;CHR*(24)s " ", 

PRINT ' s*£*V* 

INPUT" WAS SOLL ICH TUN " j I* |g 

FORI=lTOLEN ( I*) s IFMID* ( I*, I, 1)®" " THEN l 240ELSENEXT 

IFLEFT4 (I*,5)=»"SCHAU"THEN3000 - 

IFLEFT* (14,8)=*" HOLLAD IO" THEN3O20 

IFLEFT* < 14,5) =" LISTE "THEN4100 

I FLEFT* ( I * , 5 ) = " H ILFE " THEN1 000 

PRINT" ICH VERSTEHE DICH NICHT" »G0T01 140 

V*=LEFT*<I*, 1-1) cH*=RIGHT*U*,LEN(I*>-I> 

IFH*= "EIMER" THENH*s= " BLECFC IMER " 

IFH«=" ST IEFEL" THENH*- "GUMM IST IEFEL“ 

I FH*=” BEEREN "THENH*» "ERDBEEREN • 

IFH*=" HOELZER" THENH* « " STRE I CHHOEL Z ER " 

IFH*»"PILZ "THENH*» "FLIEGENPILZ" 

IFH*=" E I SEN " THENH*» "BRECHE I SEN " 


DU WIRST VON PYRANHAS VERBPEI 


CP/M 2.2 FÜR GENIE l/ll 


CP/M : Die große weite Welt der Software I 

Sie haben jetzt die Möglichkeiten von professio- 
nellen Computersystemen und darüber hinaus 
liefert Ihnen unser CP/M 2.2 mit Ihrem Genie 
l/ll Möglichkeiten, von denen größere Anlagen 
nur träumen I Sie sind nämlich nicht nur Soft- 
ware-kompatibel zu anderen CP/M-Rechnern, 
Sie sind darüber hinaus auch Disketten-kompa- 
tibel zu anderen Rechnersystemen I Disketten- 
kompatibel heißt: Sie nehmen eine Diskette ei- 
ner IBM-Anlage, einer ALPHATRONIC, eines 
OSBORNE, einer Olivetti, eines FORMULA 1 
u. a. und können diese Diskette direkt mit 
Ihrem Genie l/ll lesen und schreiben. Voraus- 
setzung ist ein Genie l/ll mit 64 K RAM (Mo- 
dell '83) sowie entweder die "Option EG 64" 
oder den "LSS 1.1". Es muß mindestens ein 
Diskettenlaufwerk vorhanden sein. Genie I oder 
Genie II mit 64 K RAM (Modell '83) 998,- DM 
LSS 1.1 (CP/M-Bankingsteuerungsbaustein) 
wird einfach auf gesteckt, ohne löten (I), ohne 
schrauben 195,- DM 

Option EG 64 — universeller Bankingbaustein, 
verwaltet bis zu 96 K RAM auch unter NEW- 
DOS-80, G-DOS oder direkt ohne Betriebs- 
system (muß eingelötet werden) 195,-- DM 


CP/M 2.2 (64-K-Version) mit dem Super-BIOS 
von Günter Ermer und org. Registrierkarte von 
Digital- Research 495 - DM 

Paketpreis: CP/M 2.2 + LSS 1 .1 595,- DM 

ERW-64 K erweitert Ihr Genie von 16 K auf 
64 K RAM 145,- DM 

80 Zeichenkarte mit 600x300 Punkte-Grafik, 
64 K RAM mit eigenem Prozessor demnächst 
lieferbar. 

STAR DP 510 — Der Nadeldrucker, dem Sie 
nicht widerstehen können: lOOZ/sec, Umlaute, 
Unterlängen, einzel Nadelansteuerung für High- 
Res-Grafik, enorm viele Schriftarten und -brei- 
ten, jetzt zum SENSATIONSPREIS: 998,- DM 

Alle Preise inkl. ges. MwSt. Fordern Sie ausführ- 
liche Informationen an. (CP/M, Drucker, Co- 
lour Genie, etc. ...) 

SCHMIDTKE 

electronic 
Sandkaulstraße 84/86 
5100 AACHEN 
Tel. 0241-23217 

Geschäftszeiten : 

Mo. - Fr. 10.00 Uhr bis 13.00 Uhr 

14.30 Uhr bis 18.30 Uhr 
Sa. 10.00 Uhr bis 14.00 Uhr 

Donnerstags geschlossen 


=] 
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1 290 I F V*= " GEH" QR V*= " RENN " QRV*= "LAUF “ THEN3050 

1300 IFV*="NIMM"0RV*="GREIF"THEN3120 

1310 I F V*= " LEGE “ORV*= " L ASS " OR V*= " G I EB " THEN3200 

1320 IFV*="FAELLE "THEN3240 

1330 IFV*="5CH0EPFE"THEN3310 

1340 IF V*= " KLETTER "THEN3370 

1350 I FV*= "LI ES " THEN3480 

1360 I F V* = "DI CHTE " T HEN3530 

1370 IFV*=" BETRETE" THEN3560 

1380 I F V*= " OEFFNE " THEN3590 

1390 IFV*=" ZUENDE "THEN3690 

1400 1 FV*= " SCHLEI FE " THEN3730 

1410 IFV*="BEWEGE"THEN3750 

1420 IFV*= " GRABE " THEN3790 

1430 I F V*= " TOETE " THEN3820 

1 440 I FV*= " PFLUECKE " AND < H*="FL I EGENP I LZ " ORH*=" ERD BEEREN" ) THEN3 1 20 

1450 IFV*=" PFLUECKE "THEN3 140 

1460 IFV*="ISS"THEN3860 

1470 IFV*=" RUDERE "THEN3900 

1480 I F V*= " SCHUETTE " THEN3950 

1490 IFV*=" VERLASSE "THEN3990 

1500 GOTO 1230 

2000 STOP 

3000 PRINT" ICH SEHE ■ ; : IFLEN < I* (X , V) ) <2THENPRINT" NICHTS" ELSEPRINT" I 
*<X, Y> :CHR*<24) ; " " 

3010 GOTOl 140 

3020 I FH= 1 THENPR INT" ALL ES UM MICH HERUM DREHT SICH... ICH STEHE JETZT P 
LOETZLICH IN EINER ANDEREN HUETTE “ELSEPRINT "WAS SOLL DENN DAS BEDEUTEN? 
H s GOTO 1140 

3030 IFX=3THENX=7: Y=8EL5EX=3: Y=»9 
3040 GOTO 11 40 

3050 X1=X:Y1=Y: IFX=4ANDY=4THEN9000 

3051 IFH=1 THENPR INT "DAS KANN ICH JETZT NICHT" s G0T01 140 

3052 IFF (X, Y) =2BANDIV (3) < >1 THENPR INT "UND WIE SOLL ICH HIER RAUSKOMMEN ? 
“GOTO 11 40 

3054 IFF ( X , Y) =40ANDI V ( 1 5) < >1THENPRI NT "HILFE ICH WERDE VON PYRANHAS ANGE 
NAGT.. . "s GOT09000 

3056 IFD ( X, Y) =64THENPRINT "DER BAR GREIFT MICH AN - UND TOETET MICH. .."s 
G0T09000 

3058 IFD ( X, Y) >128AND (L9< >10RI V < 11)01) THENPR INT "ICH VERIRRE MICH IM WAL 

D. . . FORI=OT01 000: NEXT : G0T090OO 

3060 I FH» = " OST “ AND ( D ( X , Y ) AND2 ) THENX =X+ 1 

3065 I FH* = " NDRD " AND (D (X, Y) AND 1 > THENY=Y— 1 

3070 IFH*= " SUED “ AND ( D ( X , Y ) AND4) THENY=Y+1 

3080 I FH*= " WEST " AND ( D < X , Y ) ANDB) THENX= X- 1 

3090 IFD (X, Y) AND16THEN31 IO 

3100 IFX=X1ANDY=Y1 THENPR INT "DORTHIN KANN ICH NICHT GEHEN" : GOTOl 140 
3110 GOTO 1000 

3120 G0SUB8000 : FORI =OTO J- 1: IFA* (IX >H*THENNEXT : PRINT " DAS SEHE ICH HIER 
NICHT": GOTOl 140 

3130 F0RI=0T02B: IFI V* ( I ) =H*THEN31 45ELSENEXT 
3140 PR INT "DAS KANN ICH NICHT TUN" : G0T01140 

3145 PX=PX+1: IFPX>5THENPX=PX— 1: PRINT" ICH HAB ZUVIEL ZU SCHLEPPEN !":G0T 
01140 

3147 IFH*=" SCHATZ "ANDIV (25) < >1THENPRINT" ZU SCHWER !":GOT01140 
3150 IV ( I ) = 1 : FORI=OTOJ-1 : IFH*=A* ( I ) THENA* < I ) =" " 

3160 NEXT: IFH*= "HONIG “THENG0TD8O50 

3161 IFH*s=“FLIEGENPILZ" AND09=0THEN09=1 : IFJ=0THENJ=1 : A* (0) ="STREICHHOELZ 
ER"ELSEA*="STREICHHOELZER, " 

3165 PR INT "OKAY ! " 


SOFTWARE 


GENIE DATA 19 


3 170 IF J=OTHENA*= " "ELSEFDRI =OTD J : IFLEN { A* < I ) > < >OTHENA*=A*+A* ( I ) + “ , " : NEX 

TELSENEXT 

3180 I*(X,Y)=A* 

3190 GOTD1140 

3200 FDRI=OT028: IFH*=IV* ( I) THEN3210ELSENEXT: G0T01230 

3210 IFIV (IX >1 THENPR INT "DAS HABE ICH NICHT !":G0TD1140 

3211 IV < I ) =0s PX=PX~1 

3212 IFH$="HONIG" ANDF (X , Y ) =4 ITHEND (X, Y) =15: PR INT "DER BAER NIMMT DEN HON 
IG UND LAEFT DAMIT WEG" : F (X, Y) =5: GOT01 1 40 

3214 IFH* 33 " KNOCHEN" ANDF (X , Y) =45THEND <X,Y)=11: PR INT "DER HUND NIMMT DEN K 
NOCHEN UND VERSCHWINDET DAMIT" : F (X, Y) =5: GOTO 1 140 

32 1 6 I FH*= " ERDBEEREN" ANDF (X , Y) = 25THEND (X,Y)=15:F(X,Y)=5:PRINT" DER RIESE 
NIMMT DIE ERDBEEREN UND VERSCHWINDET IM NAHEN WALD" 

3217 IFH*=“ WAGEN" ANDIV (27) =1THENI * ( X , Y) =1 $ (X , Y) +“SCHATZ, " : I V (27) =0: PX=P 
X— 1 

3218 IFH*="FISCH"AND(F(X, Y)=60RF(X, Y> =240RF < X , Y) =40) THEND <7, 12) =10: F (7, 
12) =5 SPRINT "DER FISCH SPRICHT - DER WEG DURCH DEN BERG STEHT DIR JET 
ZT OFFEN :G0T01140 

3219 I FH*= "SCHATZ "ANDF ( X , Y ) = 1 9THEN9500 

3220 I* <X,Y)=I*(X,Y)+IV*(I)+", " 

3230 PRINT" OKAY ! " : GOTO 1140 

3240 IFIV ( 1 ) < >1 AND IV (23) < >1 THENPR INT "WOMIT DU DOLDY ! ! " : G0T01 140 
3250 I FH*< > " BAUM " ANDH*< > " E I CHE " THEN3 1 40 

3260 IFF ( X, Y) =OTHENPR INT "OKAY ! " : F0RI=1 T0500: NEXT :PRINT" ICH HABE EINEN 
BAUM GEFAELLT. ER FAELLT INS DICHTE UNTERHOLZ UNDIST NICHT MEHR ZU SEHE 
N. " : G0TD1 140 

3270 IFH*= " E I CHE " THENPR I NT " D I E IST MIR VIEL ZU DICK“ : G0T01 1 40 

32B0 IFF ( X, Y) =20THENPRINT"DIE LUFT FLIMMERT... DER BAUM VERSCHWINDET... 

ZURUECK BLEIBT EINBIENENNEST !": I* <X,Y) =1* (X, Y) +-“HONIB, " t IV < 1 ) =Os PRINT 
"DIE AXT IST BEIM LETZTEN SCHLAG ZERSPLITTERT" : PX=PX-1 s GOTOl 140 
3290 IFF (X, Y) =37ANDSS*=1THENPRINT"0KAY ! I* ( X , Y) =1* < X, Y) +"BAUM, “ : M* (37) 
=" IN EINEM WALDSTUECK " : GOTO 1 1 40 

3295 IFF ( X, Y) =37ANDS8=0THENPRINT"DIE SAEGE IST ZU STUMPF" : GOTOl 140 
3300 GOTO 1230 

3310 I FH* < > " OEL " ANDH* < > “ WASSER " THEN3 1 40 

3320 IFIV ( 16) =OANDl V (6) =OTHENPR INT "WOMIT ?":G0T01140 

3330 IFIV (16) =0ANDD9< >1THENPRINT"DER EIMER IST UNDICHT” : GOTOl 140 

3340 IFI V ( 1 6 ) = 1 THEN I V (16) =OELSEI V ( 6 ) =0 

3350 I FH*= " WASSER " T HEN I V ( 28 > « 1 ELSE I V ( 1 7 ) = 1 

3360 PR INT "OKAY !":G0T01140 

3370 IFH*=" BERG "ANDF ( X, Y) < >1THENPRINT"DAS SEHE ICH HIER NICHT" s GOTOl 1 40 
3380 IFH*=" BERG" THENPR INT" ICH BIN DOCH NICHT LEBENSMUEDE" : GOTOl 140 
3390 IFH*=" BAUM "AND (F(X,Y)< >0ANDF ( X, Y) < >20) THENPRINT“DAS SEHE ICH HIER 


Geld verdienen mit dem Mikrocomputer 

Wie Sie aas machen können, zeigt Ihnen unsere Aibellsmappo -Geld verdienen 
mit dem Mikrocomputer». Wir zeigen Ihnen wie Sie mit einem Adressenverlag 
Geld verdienen können, oder wie ein Textssrvice-BOro aulgebaut wird. Weitere 
Themen sind: 

• Geschattsanmeldung und wie man es macht 

• Start von zu Hause aus 

• Vermittlungsgeschäfte per Mikrocomputer 
■ Verkaufen SI8 Software 

• Geld verdienen mit einem Buchvereand 

• Das Computer-Kinderbuch 

• Das Geschäft mit den Vereinen 

• Wie Sie einen Computershop eröffnen 

• Geld verdienen mit Bausätzen und Teilen 

• Der freiberufliche Programmierer 

• Wie Sie nebenberuflich Computer verkaufen können und viele weitere Tips, 
Ideen und Anregungen. Auch ein umfangreiches Adressenverzeichnls ist 
belgefogt, damit Sie wissen wo Sie was beziehen können. 

Die Mappe kostet mit Checklisten DM 98.-, Lieferung erfolgt per Nachnahme 
+ Porto oder gegen Scheck portofrei. Garantie: Sie haben Hockgaberecht 
Innerhalb B Tagen. 

Vertag P. Ktrchmeier, Ringstr. 3/CR, 7504 Wuingwlen, Tel. 07244/2871 
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NICHT " s GOTO 11 40 

3400 IFH>="BAUM"THENPRINT "OKAY !" s PRINT" AHH - ICH RUTSCHE AB. . . " : GOTO 
9000 

3410 I FH*= " E I CHE “ THENPR I NT " OKAY ! " : G0T03420EL5E 1230 
3420 IF08=1THEN1 140 

3430 PRINT " ETWA9 FAELLT HERAB ! “ : I« ( X , Y) =1* ( X, Y) + M GUMMI STIEFEL, " 

3440 FQRI=lTQ5O0: NEXT 

3450 PRINT" UND ICH FALLE HINTERHER" 

3460 08=1 : GOTOl 140 

3400 IFH«>" INSCHRIFT "THENPR INT "SO ETWAS KANN ICH NICHT LESEN" : GOTOl 1 40 
3490 IFF (X, Y) = 18THENPRI NT "HOLLAD IO“ : GOTO 1 140 

3500 IFF (X,Y)=19THENPR INT "LEGE HIER DEN SCHATZ AB":G0T0U40 
3510 IFF (X, Y) =32THENPRINT "SEIN ODER NICHT SEIN. GOTO! 140 
3520 PRINT" ICH SEHE HIER KEINE INSCHRIFT" : G0T01 140 

3530 I FH« >" BLECHE I MER " THENPR INT " WAS SOLL DENN DER SCHWACHSINN ?"sG0T01 
140 

3540 IF IV ( 19) =OTHENPR INT "WOMIT DENN ?":G0T01140 
3545 IFIV (6) =0THEN3140 

3550 IV< 19 )=0:PX=PX-1:D9=1 SPRINT" OKAY !": GOTOl 140 

3560 IFH*="HUETTE"ANDF(X.Y)=9THENPRINT"DIE HUETTE IST VERSCHLOSSEN" : GOT 
01140 

3565 I FH= 1 THEN3 1 40 

3570 I FH*=" HUETTE "ANDF ( X, Y) =10THENH=1 : PRINT"ÜKAY !■ : GOTO 11 40 
3500 PR INT "WELCHE RICHTUNG LIEGT DAS ?": GOTOl 140 

3590 IFH<=" HUETTE "ANDF ( X , Y) =9ANDI V ( 12) =1THENPRINT "OKAY ! “ : PRINT“DIE HUE 
TTE ISTJETZT AUF" : F < X , Y> =10: GOTOl 140 

3600 IFH*="TOR" ANDF { X , Y) =35THENPRINT" DAS TOR IST VERSCHLOSSEN UND ES IS 
T KEIN SCHLOSS ZU SEHEN" : GOTO 1 140 

3610 I FH*= " SCHLDSSTOR “ ANDF ( X, Y) =44AND I V ( 24 ) = 1 THENPX =PX- 1 : I V ( 24 ) =0 : D ( X , Y 
)=10:PRINT“DAS TOR IST JETZT OFFEN" : GOTOl 140 

3620 I FH*= " TUER " ANDF <X,Y)=49THENPR INT "DIE TUER IST NUN AUF" : I* ( X, Y) =1* < 
X, Y)+"SCHLUESSEL, GOTOl 140 

3630 IFH*=" TUER" ANDF (X, Y) =51ANDIV (24) =1THENIV (24) =0: PX=PX-1 : D (X, Y) = 10: P 
RINT"DIE TUER IST JETZT AUF" : GOTOl 1 40 
3640 GOTO 1230 

3690 IFH*= " LATERNE" ANDI V ( 1 1 ) = 1ANDIV (9) =1THEN1 V <9 ) =0: PX=PX— 1 : L9=l : PRINT" 
DIE LATERNE IST AN":G0T01140 

3700 IFH<=" STROH" ANDF (X, Y) =23THENS9=1 :PRINT"DER FEUERSPEIENDE DRACHE HA 
T DAS STROH ENTZUENDET" : GOTOl 140 

3705 I FH*=" STROH" AND I V < 9 ) = 1 THEN I V (9 > =0 : S9= 1 : PX=PX- 1 sPRINT "OKAY ! " : GOTO 1 
140 

3710 I FH*=" DORNENHECKE "THENG0SUBB200: GOTOl 140 
3720 GOTO 1230 

3730 I FH#=" MESSER " ORH*= " AXT " ORH$= "SCHWERT "THENPR I NT " OKAY ! PRINT "SCHAE 
RFER ALS JE ZUVOR": GOTOl 140 

3740 I FH*=" SAEGE " THENPR I NT "SCHAERFER ALS JE ZUVOR": S8=l i GOTOl 140 
3750 IFIV (20) < >1THENPRINT"W0MIT ?": GOTOl 140 

3760 IFH*<>"5TEIN"THENPRINT"DAS KANN ICH NICHT TUN" : GOTOl 140 
3770 I FF ( X , Y ) < >43THENPR I NT " WO IST DENN HIER EIN STEIN !!": GOTOl 140 
3775 IV (20) =OsPX=PX— 1 

3780 PRINT" ICH HABE DEN STEIN ZUR SEITE GEHEBELT. DARUNTER IST NICHTS - 
BISAUF EIN IN DEN BODEN GERITZTES KREUZ" : S7=l : GOTOl 140 
3790 IFIV (2) =OTHENPR INT "WOMIT DENN? GOTO 1 1 40 

3800 IFF(X,YX>43THENPR INT "OKAY !":PRINT"ICH BIN JETZT SCHON "RND (5) n M 
ETER TIEF UND HABE IMMER NOCH NICHTS GEFUNDEN - ICH SCHUETTE DAS LO 

CH WIEDER ZU": GOTOl 140 

3810 PRINT “OKAY FORI =1T0500: NEXT: PRINT "SCHON KURZ UNTER DEM BODEN ST 

OSSE ICH AUF ETWAS HARTES" : I* ( X, Y) =1* (X, Y) +"SCHLUES5EL, ": GOTOl 1 40 
3820 IFIV ( 14 )=OTHENPR INT "WOMIT ? VIELLEICHT MIT EINEM MESSER ?":G0T011 
40 
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3830 IFH*< >" DRACHE "THEN3 140 
3835 Ff? INT “OKAY ! ” 

3840 PR INT "DAS SCHWERT DES RIESEN TOETET DEN DRACHEN. DAS SCHWERT UND D 
ER DRACHE VERSCHWINDEN" : D (X , Y) =15: F ( X . Y) =5 
3850 IV ( 14) =0: PX=PX— 1 : GQT01 140 

3860 IFH*="H0NIG"ANDIV<10>=1THENIV(10)=0:PX=PX-1:PRINT"HMM DAS WAR FEIN 
! " : G0T01 140 

3865 IFH*="ERDBEEREN"ANDI V<7) “1THENIV (7) =0: PX=PX— 1 : PRINT" HMM - FEIN DIE 
SE ERDBEEREN" :G0T01 140 

3870 IFH*="FLIEGENPILZ" ANDI V <S> =1THENI V (8) =0: PX=PX— 1 : Ff? I NT " WUERG DER I 
ST JA GIFTIG. .. ":GOT09000 

3880 PR INT "DAS WERDE ICH NICHT ESSEN. DAS IST BESTIMMT UNGESUND" : GOTO 1 1 
40 

3900 IFI V < 13) < >1 ANDF < X , Y) < >24THEN3140 
3910 I FH*= " NORD "ORH*= "SUED " THEN3 1 40 

3915 IFIV<13) =1ANDI V <26) < >1THENPRINT"UND WOMIT SOLL ICH RUDERN?" : GOTO 11 
40 

3920 IFH*=" OST ■ THENX=5 : F < 4 , Y > =6 : I * ( 4 , Y ) = " ** : G0T03935 
3930 I FH*= “ WE ST " THENX =3 : F < 4 , Y ) =6 : I * < 4 , Y ) ■ " " : GOT03935 
3932 GOTO 1230 

3935 IFIVC13) =1 THENI V (13) =0: PX=PX— 2: IV(26)“0 

3936 GOTO 1000 

3950 IFH*< > "OEL " ANDH*< > " WASSER" THEN3 1 40 

3960 IFH*= U 0EL"ANDIV(17)=1THENPRINT"0KAY ! " i IV < 17) =0s PX=FX~1 : I» (X , Y) =1* 
(X,Y)+"OEL, 1FF ( X, Y) =15ANDY=7THENS0=1 : GOTO 1 140ELSE1 140 

3970 IFH*="WASSER"ANDIV<28)=1THENPRINT"DKAY ! “ : IV (28) =0: PX=PX-1 : I« (X, Y) 
=I*<X, Y)+"WASBER, " i GOTO 1140 
3980 GOTO 1230 

3990 IFH*=" SCHLUCHT "ANDF (X, Y) =27THENPRINT"DKAY ! ": Y=Y+1 : GOTO 1000 
4000 IFH*="HUETTE"ANDF(X, Y) =10ANDX=7THENY=Y+1 : H=0: G0T01000 
4010 IFH*=“HUETTE" ANDF ( X , Y) =1 0ANDX=3THENX=X-1 : H=0: G0TD1 000 
4020 GOT03140 

4100 F0RI=0T028: IFI V ( I ) < >0TICNPRINTI V* ( I > 

4105 NEXT 

4110 GOT0114O 

8000 A*=I*<X,Y) s J=0 

8010 FORI — 1T0LEN (A*) : A* < J ) ==" " 

8020 IFMID* (A*, I , 1 ) =" , "THENA* < J) =LEFT* (A*, 1-1 > s J=J+1 s AS=RIGHT* (A*,LEN (A 
*)-I) sGOTOBOlO 
8030 NEXT 
8040 RETURN 

8050 FORI =OTOJ : IFA* < I ) ="WASSER"THENB06OELSEIMEXT : G0T0S070 
8060 A* ( I ) = “ " : G0T03165 

8070 PRINT-DIE BIENEN GREIFEN MICH AN - UND STECHEN MICH TOT. . . " : G0T090 
00 

8200 IFS0=1ANDS9=1THENIV(0)=0:PX=PX-1:G0T0B230 
8210 IFSO-l ANDI V (9) =1THENIV (9) =0: PX=PX-1 : G0T08230 

8220 IFSD=OANDS9=lTHENIV(0)=0:PX=PX-ljPRINT"DAS STROH VERBRENNT - DIE H 
ECKE NICHT - s RETURNELSERETURN 

8230 PRINT-D1E HECKE VERBRENNT RESTLOS“ : F ( X. Y) =5: D ( X, Y) =1S: RETURN 
9000 FORI =0T02000: NEXT : CLSs PRINT" ICH BIN JETZT IN EINER GROSSEN HOEHLE 
- MAN KDENNTE 

9010 PR INT "FAST SAGEN HOELLE - AN EINER FELSWAND STEHT EINE 
9020 PRINT" INSCHRIFT s ’ DER RICHTIGE SPRUCH RETTET DEIN LEBEN' 

9030 PRINT: INPUTA* 

9040 IFLEFT* ( A*, 8) ="SEIN ODE "THENGOTO 1000 
9050 END 

9500 CLS : PR I NT " DU HAST DAS ZIEL ERREICHT. - DU BIST DER HELD DES ABENTEU 
ERLANDES" 

9510 END 


22 GENIE DATA 


SOFTWARE 


lOOOO DATAO, 0,0, 0,0, 6, 2, 2, 2, 2,0, 1, 1,30,31,6,2,49, 50,2 
10010 DATA1 ,27, 1,28,29,6,2,48,51,52,0,25,32.26,6,6,2,47,50,2 
10020 DATAO, 22, 5, 23, 24, 5, 44, 45, 46, 2,0, 1 B, 20, 21 , 6, 5, 2, 2, 2, 2 
10030 DATAO, O, 17, 15, 6, 6, 1 , 1, 1 , 1 , 0, 14,5, 15, 16,6, 19,5,43,0 
10040 DATAO, 11, 12, 13,6,6,42, 10,0,0,0,7,8,9,6,39,40,41,0,0 
10050 DAT A0,0, 1,6,6,6,0,5,38,0,0,3,4,6,37,0,0, 1, 1, 1 
10060 DAT AO.O, 1,6,33,5,34,35, 36,0,0,0,0,6,0,0,0, 1,0,0 
10070 F0RI=ÖT013xF0RJ=0T09:READF< J, I) xNEXTxNEXT 
10080 DATA“ IN EINEM WALD" , "VOR EINEM UNUEBERWINDBAREN BERG" 

10090 DATA "VOR EINER SCHLOSSMAUER ", "BEI EINEM STROHHAUFEN" 

10100 DATA" IN EINER HOEHLE", "AUF EINER SONNIGEN WIESE" 

10110 DATA" IN EINEM FLUSS","AM WALDRAND" 

10120 DATA" AUF EINEM PLATZ " , "VOR EINER VERSCHLOSSENEN HUETTE" 

10130 DATA" VOR EINER OFFENEN HUETTE", "AN EINEM STINKENDEN TUEMPEL" 

10140 DATA "AUF EINEM SCHMALEN WEG" , "ZWISCHEN FI SCHERNETZEN“ 

10150 DATA" BEI EINEM AUSGETROCKNETEN BRUNNEN" 

10155 DATA "VOR EINER UNDURCHDRI NGBAREN DORNENHECKE" 

10160 DATA“ AUF EINEM ERDBEERFELD" ," IN EINEM WALDSTUECK" 

10170 DATA" VOR EINER STEINTAFEL" , "VOR EINER STEINTAFEL" 

10180 DATA" BEI EINEM HOHEN BAUM", “IN EINEM GESTRUEPP" 

10190 DATA" AUF EINER W3ESE","BEI EINEM FEUERSPEIENDEN DRACHEN" 

10200 DATA "AM FLU5S","BEI EINEM SCHRECKLICHEN RIESEN" 

10210 DATA" IN EINEM DUNKELEN WALD","IN EINER SCHLUCHT" 

10220 DAT A " I N EINER FALLGRUBE" , "VOR EINER KNORRIGEN EICHE" 

10230 DATA "AM FUSSE EINES BERGES", "AN EINEM OELSEE" 

10240 DATA“ VOR EINER STEINTAFEL" ," IM MOOR" 

10245 DATA" BEI EINEM SCHLEIFSTEIN" 

10250 DATA“ VOR EINEM TOR IM BERG", "IN EINER LEHMGRUBE" 

10260 DATA" IN EINEM WALDSTUECK VOR EINEM DUERREN BAUM", "AM FUSSE EINES 
BERGES" 

10270 DATA" AUF EINER INSEL IM FLUSS", "AN EINER FURT" 

10280 DATA" AUF EINER WIESE", “AUF EINER WIESE" 

10290 DATA" AUF EINEM GROSSEN PLATZ MIT EINEM MARKANTEN STEIN" 

10300 DATA "VOR EINEM SCHL0S5T0R" 

10310 DATA" IM SCHLOSSHDF VOR EINEM BISSIGEN HUND" 

10320 DATA "IM SCHLOSSHOF” ," IM SCHLOSSHOF" ," IM SCHLOSSHOF " 

10330 DATA" AN DER SCHLOSSMAUER" , “AM TURM", "VOR DER TURMTUER" 

10340 DATA" BEI EINER SCHATZTRUHE" 

10350 FQRI= : 0T052x READM* ( I ) x NEXT 

10360 DATA, ,, STROH, AXT, ,, SCHAUFEL, LEITER, , ,, MESSER, NETZE, BLECHEIMER, , ER 
DBEEREN, FLIEGENPILZ, INSCHRIFT, INSCHRIFT, BIENENNEST, LATERNE, BRECHEISEN, , 
BOOT, , , SCHWERT, , , TOPF, , INSCHRIFT, FISCH. SCHLEIFSTEIN, , LEHM, , BRETTER, KNOC 
HEN , , BAER , SAEGE , , , , BOOT 

1 0370 DATAWAGEN , RUDER , TUERCHEN, , , SCHATZ 
103B0 FDRI=OT052sREADN*(I) s NEXT 

10510 DATA22, 30, 30, 30, 28, 32, 0,0, 0,0, 1, 1, 1,7, 13,32,2, 14,8,0 

10520 DAT A4, 4, 0, 7 , 9,32, 2, 15,8,8,23,14, 14, 141,32,32,2, 15,8,0 

10530 DATA23, 15, 15,13, 10. 14,8,2,8,0,23,15, 15, 13,32.1,0,0,0,0 

10540 DATA23, 15, 15,13,32,32,4,4,4,4,23, 15, 15, 13,8,32,7, 15, 15,29 

10550 DATA23, 15, 15, 13,32,32,3, 15, 15,29,23, 15, 15,9,32,2, 10,64, 15,29 

10560 DATA23,13, 1,32,32,32,6,11, 11,25,23, 15,8,32,6,14, 15.8,4,4 

10570 DATA23, 15,8,2, 15,15, 15,8,15,29, 19,25,0,32, 19,27,27,8, 19,25 

1 0580 F0RI=0TQ13x FGRJ=0T09: READD ( J, I ) s NEXT : NEXT 

10590 F0RI=0T013xF0RJ“0T09: I*<J, I ) =N* (F (J , I ))+",": NEXTs NEXT 

1 0600 DAT ASTROH . AXT , SCHAUFEL »LEITER, MESSER , NETZE , BLECHEIMER , ERDBEEREN , F 

L I EGENP I L Z , STRE I CHHOEL ZER , HON I G , LATERNE , BRECHE I SEN , BOOT , SCHWERT , GUMM I ST 

I EFEL , TOPF , OEL , F I SCH, LEHM , BAUM, BRETTER , KNOCHEN , SAEGE , SCHLUESSEL , WAGEN , R 

UDER, SCHATZ , WASSER 

10610 F0RI=0T028x READIV* ( I ) x NEXT 

12000 RETURN 
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Plotter 

COLOUR GENIE 


Dieses Programm soll eine komfor- 
table Möglichkeit sein, sinnvolle, 
komplizierte und hübsche Grafi- 
ken mittels der Plott- und Paint- 
Routinen zu erstellen. 

Diese Grafiken können aus Pro- 
grammdaten, einzugebenden Ko- 
ordinaten oder Cassetten-Auf- 
zeichnungen (Grafik-Speicher wird 
aufgezeichnet) aufgebaut und ge- 
druckt werden. 

Hier einige Hinweise 

Die Steuerzeichen, die beim 
plotten verwendet werden kön- 
nen, sollen bei Bedarf anstatt der 
Koordinaten eingegeben werden. 
Dabei wird der Zähler nicht er- 
höht. 

Beim Bemalen der Flächen führt 
die "0" als Farbnummer zurück 
zur Auswahl, beim Einlesen, Spei- 
chern und Drucken, das "A". 

Als Sicherung vor Endlosschlei- 
fen ist vor dem Einlesen, Spei- 
chern und Drucken eine "Be- 
reit?"-Frage eingebaut, bei der al- 
les andere als "J" zurück zur Aus- 
wahl führt. 

Zum Grafik-Speicher: 

Der Grafik-Speicher beschreibt 
nacheinander in 102 Zeilen je 40 
Bytes (=320 Bits). Damit könnte 
er eigentlich 320 Punkte pro Zei- 
le definieren. Doch da vier Farben 
dargesteilt werden sollen, benutzt 
das Colour Genie je zwei Bits für 
einen Punkt und kann so für jeden 
Punkt die Farbe bestimmen (2 


Bits können 4 Werte annehmen: 
0,1, 2 und 3). 

Zur Arbeitsweise des Programms : 

Das Programm speichert nun 
die Werte der Bytes+100 (damit 
alle Werte -von 0 bis 255- dreistel- 
lig werden) als Zeichenkette mit je 
240 Zeichen (= 80 Werte), wobei 
2 Zeilen gleichzeitig abgespeichert 
werden. 

Beim Drucken ist es etwas kompli- 
zierter : 

Das Modell, ein Star DP 8480, 
läuft mit einem IC, der neben 
dem Standard-ASCI I -Zeichensatz 
noch 64 Grafikzeichen hat. 

Es sind die Zeichen 128-159 
und 224-255. 

Diese 64 Zeichen haben in der 
obersten Zeile max. 6 Punkte, die 
nach Art der Dualzahlen 2 hoch 6 
Kombinationen zulassen. Demzu- 
folge wandelt das Programm in 
den Zeilen 950-970 die Bild- 
schirmzeile in einen String aus 
Nullen und Einsen um und zer- 
hackt diesen dann in Zeile 980 in 
6er-Strings und druckt sie in Zei- 
le 1030 aus. 

Haben Sie einen prinzipiell an- 
deren Drucker, müssen Sie sich in 
den Zeilen 870-1030 einen ande- 
ren Algorhythmus einbauen (am 
Ende das Return nicht vergessen) 
oder wie es auch bei denen, die gar 
keinen Drucker haben, empfeh- 
lenswert ist, in Zeile 850 vorweg 
ein Return einbauen. 


Achtung! 

Colour Genies mit alten ROM's 

Wenn CLS den Grafik-Speicher 
mitlöscht, kann dies auch in den 
Zeilen 90, 220, 290, 400, 600, 
760 und 850 durch Gosub 1035 
ersetzt werden, wenn die Zeile 
1035 FOR AD = 17408 TO 18407 
: POKE AD, 32 : NEXT : 
RETURN 

eingefügt wird. Auch die Zahl 101 
kann in Zeile 310 durch 95 er- 
setzt werden. 

Um Zeit zu sparen, kann dann, 
auch in Zeile 710 und 800 die 
höchste Speichernummer auf 
22191 (von 22511) geändert wer- 
den. 

Noch ein paar Erklärungen 
zu den Zeilen : 

20-60 

Eine programminterne Grafik muß 
hier eingeschrieben werden. 

90 + 210 

Der Auswahlstring AW$ und die 
Schleife in 210 bietet den richti- 
gen Sprungbefehl auf kurze und 
schnelle Weise. 

880 

CHR$(15) = 136 Zeichen/Zeile 
1030 

CHR$ (14) = Doppelte Schrift- 
breite 

Ändert man CHR$ (2) in CHR$ 
(1) und löscht das CHRJ (14), 
dann schrumpft die Grafik auf die 
Hälfte zusammen. 

Jürgen Gratz 


IO ' Plot -Programm 

20 ’ Datenteil 

30 DATA 12 Anzahl der Punkte 

40 DATA 40,90,40,20,60,0, 100,0,80,20,40,20,40,90,80,90, 100,70, 100,0,80, 
20,80,90 

50 DATA 3 : 'Anzahl der Flaechen 

60 DATA 60, 89, 4, 81 , 88, 2, 60, 19,3s ’ Koor di naten+Farhe 
70 DEF1NT S, T, X— Z : CLEAR 1000: Z=1 : DIM X ( 100) , V ( 100) 
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j 


30 ’ Auswahl 

90 AW*="LDPBESVZW":CLS 

100 PRINT §87 , "PI ot-Programm-Auswahl ": PRINT§127, STRING* (21 , 21 1 ): PRINT 
110 PRINT: PRINT" L — Loeschen des Bildes" 

120 PR INT: PR INT" D — Datenbild zeigen" 

130 PRINT :PRINT" P — Platten" 

140 PRINT: PRINT" B — Bemalen der Flaechen" 

150 PRINT: PRINT" E — Einlesen von Cassette" 

160 PRINT : PR INT" S — Speichern auf Cassette" 

170 PRINT: PRINT" V — Ausdrucken des Bildes" 

180 PRINT: PRINT” Z — Zeigen des Bildes" 

190 PRINT : PRINT" W — Schluss"; 

200 A*= INKEY*: IF A*="" THEN 200 

210 FOR T=1T09:IF A*=MID* (AW*, T, 1 ) THEN ON T GDSUB 580,240,290,600,680, 
760,850,550,1050 ELSE NEXT T:GOTO 200 
220 CLS: LGR: GOTO 100 

230 7 Datenbild zeigen 

240 FCLS : FGR : FC0L0UR4 : READ N,X1,Y1 

250 FOR T=1 TO N-l : READ X2,Y2:PL0T XI, Y1 TO X2, Y2: X 1=X2: Y1=Y2: NEXT T 
260 READ N: FOR C=1 TO N: READ X,Y,F:PAINT X , Y, F, 4: NEXT: RESTORE 
270 A*— INKEY®: IF A*=" "THEN 270 ELSE Z=1:RETURN 

280 7 Plot-Erkl aerung 

290 CLS: PRINT" Erklaerung" : PRINT §46, STRING* ( 10, 21 1 ) 

300 PRINT " Moegliche Koordinaten sind:" 

310 PRINT: PRINT “ von links nach rechts 0-159 von oben 

nach unten 0-101" 

320 PRINT: PRINT "Di e Koordinaten muessen nacheinander eingegeben werd 
en. “ 

330 PRINT: PRINT“Form: X,Y <Return>" : PRINT 

340 PRINT "Bis zum naechsten Tastendruck zeigt der Computer das entstan 
dene Bild (wenn nicht S, gedrueckt ist)." 

350 PRINT: PRINT "STEUERZEICHEN: PRINT "<F><„> =Letzten Strich loeschen 
": PRINT "<ZX,> =Zaehler gleich 1 setzen“ 

360 PRINT "<SX,> =Aus-, Einschalten des Bi 1 des" : PRINT "<AX f > =Auswahl " 
370 PRINT:PRINT "Alles klar?":PRINT "Dann irgendeine Taste druecken."; 
380 A*=INKEY*:IF A*="" THEN 380 

39 0 » Plot -Eingabe-Teil 

400 CLS:FCOLOUR4: IF Z=0 THEN Z=1 
410 Z*=RIGHT* (STR* (Z) , LEN (STR* (Z) ) — 1 ) 

420 PRINT ,, X"+Z*+" , Y"+Z$+"= H ; : INPUT X*,Y* 

430 IF (Z=l AND X$="F“> DR X*="" THEN GOTO 410 

440 IF X*="F" THEN Z=Z-1:NPL0T X(Z-l) ,Y(Z-1 ) TO X (Z) , Y ( Z ) : PLOT X(Z-1),Y 
(Z-l) : IF S=0 THEN GOSUB 550:G0T0 410:ELSE 410 
450 IF X*="Z" THEN Z=1:G0T0 410 
460 IF X*="A" THEN RETURN 

470 IF X*="S" THEN IF S=0 THEN S=1:GDT0 410 ELSE S=0:G0SUB 550: GOTO 41 

o ' ^ 

480 7 Plotten 

490 X(Z)=VAL(X*> :Y(Z)=VAL(Y*) 

500 IF X ( Z ) >255 OR Y(Z>>255 OR X(Z)<0 OR YIZXO THEN PRINT"Fal sehe Zahl 
en ! " : GOTO 410 

510 IF Z=1 THEN PLOT X ( 1 ) , Y ( 1 > ; Z=Z+1 s IF S=0 THEN GOSUB 550 :GOTO 410:EL 
SE 410 

520 PLOT X ( Z— 1 ) , Y (Z— 1 ) TO X(Z),Y(Z> 

530 Z=Z+1:IF S THEN 410 ELSE GOSUB 550:G0T0 410 


540 7 Zeigen des Bildes 

550 FGR 

560 A*=INKEY*: IF A*="" THEN 560 ELSE LGR: RETURN 
570 7 Loeschen des Bildes 


580 FCLS: Z=l: RETURN 
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590 ’ Bemalen der Flaechen 

600 CLS: PRINT §7, "Bemalen der Flaechen.-" 

610 PRINT § 87, "Gebe Punkt innerhalb der" : PRI NT§ 127, "Fl aeche und Farbe 
an. " 

620 PRINT §167, "Form: ":PRINT §207," X, Y, Farbnummer < RETURN >" 

630 PRINT §287. "Farbnummern : l=schwarz" SPRINT §339, "2=bl au ": PRINT §379," 

3=Drange": PRINT §419, "4=gruen" : PRINT §455, ”0, 0, 0=Auswahl "sPRINT 

640 INPUT X , Y , F: IF X<0 OR X>255 OR Y<0 OR Y>255 DR F<0 OR F>4 THEN 640 

650 IF F=0 THEN RETURN 

660 PAINT X, Y, F, 4: GOSUB 550: GOTO 640 

670 * Einlesen van Cassette 

680 CLS: PRINT §405, "Einl esen von Cassette:" 

690 PRINT §485, "Recorder f ertig ( J/N) 7" 

700 A$=INKEYU>: IF A$="" THEN 700 ELSE IF A*<>"J" THEN RETURN ELSE PRINT 
§565, "Abbrechen mit <A>!" 

710 FOR D=1 TO 100: NEXT D: FGR: FOR SP» 18432 TD 22511 STEP 80 
720 A$=INKEY*:IF A$=“A" THEN RETURN: ELSE INPUT#-1,ZE$ 

730 FOR PL=0 TD 79:P0KE SP+PL, VAL (MID* ( ZE* , 3*PL+1 , 3) ) -100: NEXT PL 
740 NEXT SP: RETURN 

750 * Speichern auf Cassette 

760 CLS: PRINT §405, "Spei ehern auf Cassette:" 

770 PRINT§485, "Recorder f erti g ( J/N) ?" 

780 A*=INKEY$:IF A*=" " THEN 780 ELSE IF A*<>"J" THEN RETURN ELSE PRINT 
§535, "Abbrechen mit <A>!" 

790 PRINT §563, "Es werden 51 Strings auf gespei chert. PRINT: PRINT 
800 FOR D=1 TO 100: NEXT D:ZE=1:F0R SP=18432 TO 22511 STEP 80:ZE*="" 

810 A*=INKEY3>: IF A$=”A" THEN RETURN 

820 FOR PL=0 TO 79: ZE$=ZE*+RIGHT* (STR* (PEEK (SP+PL) +100) , 3) : NEXT PL 
830 PRINT #-l,ZEf: PRINT ZE; : ZE=ZE+1 : NEXT SP: RETURN 
840 ' Ausdrucken des Bildes 

850 CLS: PRINT §405, "Ausdrucken des Bi Ides !": PRINT §485 , "Drucker fertigt 
J/N) 7" 

860 A*=INKEY$: IF A*="" THEN 860 ELSE IF A$<> ,, J , ‘ THEN RETURN ELSE PRINT 
§565, "Abbrechen mit <A>!" 

870 PRINT §800. "Es werden 102 Zeilen ausgedruckt. ” : PR INT§B40, ; : G=1 
880 L PRINT CHR$ (15) CHR$ (27) CHR$ (65) CHR$ (2) : LF’RINT 

890 FOR ANF=&H4800 TO &H57EF STEP 40: Z$=" " : LPRINT: LPRINT CHR$ (27) CHR4 (8 

8) : LPRINT, ; : PRINT G;:G=G+1 

900 A$=INKEY$: IF A*="A" THEN RETURN 

910 FOR AD= 0 TO 29:G0SUB 950: NEXT AD:GOSUB 980: Z*="" 

920 FDR AD=30 TO 38:G0SUB 950: NEXT AD:GOSUB 980: Z*="" 

930 AD=39: GOSUB -950: Z$=Z$+STRING* (16, "O" ) : GOSUB 980; NEXT ANF 

940 LPRINT CHR* <27 )CHR* (89): RETURN 

950 AR= ANF + AD : F OR B=7 TO 0 STEP-1 

960 IF CHECK (B, AR) THEN Z*=ZS+"1" ELSE 

970 NEXT B: RETURN 

980 FOR S=1 TO LEN(Z$) STEP 6: T*=MID* ( Z$, S, 6) : ZA=0 

990 V=VAL(T$> : IF V=llllll THEN ZA=63: GOTO 1020:ELSE IF V=0 THEN 1020 
lOOO FOR P=6 TO 1 STEP-1 : IF VAL (MID* (T*, P, 1 )) THEN ZA=ZA+2Ä (P-l ) 

1O10 NEXT P 

1020 IF ZA >31 THEN NR=192+ZA ELSE NR=12B+ZA 
1030 LPRINT CHR$ (14) CHR$ (NR) ; : NEXT S: RETURN 

1040 ' Schluss 

1050 END 
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Das Programm gibt Ihnen die Mög- 
lichkeit, relativ komfortabel hoch- 
auflösende Grafiken beim Colour 
Genie auszudrucken. 

Es wird entweder nach dem 
Aufbau der Grafik geladen oder 
als Unterprogramm verwendet. Bei 
einer Verwendung als Unterpro- 
gramm muß es jedoch mit dem Be- 
fehl REN UM in einen passenden 
Zeilenzahlen-Bereich verschoben 
werden. Der Abschluß des Pro- 
gramms erfolgt dann mit RE- 
TURN. 

Das Programm arbeitet mit ei- 
nem Colour Genie und dem Star 
DP 510 Drucker. 

Martin Pfaffendorf 


IO CLS 

20 LPRINTCHR4<27> "5"; 

30 REM M. PFAFFE NDÜRF AUGUST ’ 83 

40 PR INT ‘‘FORMAT ; GROSS (G) MITTEL (M) KLEIN(K) ?“ 

50 A4=INKEY4: IFA*=“ “THEN50 
60 IFA4="G“THEN100 
70 IFA*=“M‘‘THEN110 
80 I F A4= “ K “ THEN 1 20 
90 G0T050 

100 LPRINTCHR*<27) > 'A ai CHR*<4) ; :G0TO130 

110 LPRINTCHR4(15) ;CHR4 (27) "A"CHR4<3) ; :GOTD130 

120 LPRINTCHR4 < 15) ;CHR4(27) " SO " ; CHR* (27) "A"CHR4<2) ; :G0T0130 

130 CLS 

140 PR INT" ABGEFLACHTE ECKEN ? ( J/N) " 

150 B$=INKEY4: IFB4= ,,n THEN150 

1 60 IFB4=" J " THENQ1 =251 : Q2=252 : RI =253: R2=254 : G0TÜ1 90 
1 70 I FB*= "N "THENO 1 =235: 02=238 : RI =236: R2=237 : G0T01 90 
180 GOTO 150 

190 CLS: PR INT "DOPPELTER DRUCK ? (J/N)" 

200 C4=INKEY4: IFC4=" "THEN2O0 

210 IFC4="J"THENLPRINTCHR4(27) "G" ; : GOT0220 

220 FGR 

230 A=— 40 

240 F0RI=1T0101 

250 G0SUB590 

260 FORX=(18432+A) TO ( 18471 +A) 

270 N=PEEK ( X ) : M=PEEK ( X+40 ) 

280 G0TQ6O0 
290 H=N 1 +N2+M 1 +M2 
300 IFH=0THENP=32 
310 I FH= 1 THENP=225 
320 I FH=2THENP=227 
330 1 FH=4THENP=226 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4 BO 
490 
500 
510 
520 
530 
540 
550 
560 
570 
5S0 
590 
600 
620 
630 
640 
650 
660 
670 
680 
690 


IFH=8THENP=228 
I FH=9THENP“229 
I FH=6THENP=230 
I FH=3THENP=23 1 
I FH= 1 2TH£NP=232 
IFH=5THENP=233 
IFH=10THENP=234 
3 FH=7THENP=Q1 
IFH=14THENP=Q2 
IFH=13THENP=R2 
IFH=11THENP=R1 
I FH— 1 5THENP=239 



LPRINTCHRt(P) ; 

I FT=1 THENN 1 =K 1 : N2=K2: 1*11 =L 1 : M2=L2 s T=0: G0T0540 

NEXTX 

LPRINT 

NEXTI 

CLS: LGRs PRINT "PROGRAMM BEENDEN (J/N) 7" 

D*=INKEYS: IFD*=" "THEN520 

IFD*="J"THEN690ELSE10 

IFN1<>0THENN1=1 

IFN2< >0THENN2=2 

I FM 1 < >OTHENM 1 =4 

IFM2< >0THENM2=B 

G0T0290 

A=A+40s RETURN 

T=N: Z=1 


T1=INT(T764) :T=T-(64*T1) 

T2=INT (T/ 16) s T=T— ( 164T2) 

Ul=INT(T/4) :T=T-(4*U1) 

U2=T 

I FZ= 1 THENN1 =T 1 s N2=T2: Kl =U 1 : K2=U2: T=M s Z=0 : G0T0620 
M 1 =T 1 s M2=T2 : L 1 =U 1 : L2=U2 
T=1 : G0TO54O 
END 


Jeder, der schon einmal beim TRS 
80 Model I in Maschinensprache 
programmiert hat, und dabei einen 
professionellen "Hang-Up" produ- 
ziert hat, wird sich darüber geär- 
gert haben, daß der Reset-Taster 
(links hinten im Gehäuse) manch- 
mal keine Reaktion erzeugt. 

Für die Basicprogrammierung 
reicht dieser Taster vollkommen 
aus, aber sobald man den NMI- 
Vektor versetzt, wird man bei ei- 
nem Hang-Up vor ein fast unlös- 
bares Problem gestellt. Der einzi- 
ge Weg den Computer wieder in 
einen programmierbaren Zustand 
zu bringen, ist das kurzzeitige Aus- 
und Wiedereinschalten des Gerä- 


Reset 

tes. Doch auf so eine Aktion re- 
agiert die Hardware, insbesondere 
die Speicher, allergisch. Läßt man 
also zwischen Aus- und Einschal- 
ten eine angemessen lange Zeit, so 
wird diese Art des Resets eine 
Recht zeitraubende Angelegenheit 
abgesehen davon, daß danach ein 
mühsam eingetipptes Programm 
gelöscht ist, und man so den Spaß 
am programmieren verliert. 

Abhilfe schafft ein zweiter Re- 
set-Knopf, der dem Prozessor ein 
echtes Reset-Signal zuleitet, und 
nicht nur ein NMI-Signal. 

Der Einbau dieses Tasters ge- 
staltet sich denkbar einfach und 
selbst Anfänger können dabei 


nicht viel falsch machen. 

Der Einbau 

Zuerst besorgt man sich einen 
kleinen Einbau tastet und etwa 50 
cm 2-poliges Kabel. Danach müs- 
sen alle Verbindungen zum Com- 
puter gelöst werden. Nun muß 
das Gehäuse geöffnet werden (6 
Schrauben am Boden in drei ver- 
schiedenen Längen, entsprechend 
der Gehäuseform). Nach dem Lö- 
sen der Schrauben dreht man das 
Gerät um und achtet dabei darauf, 
daß die Gehäuseschalen nicht aus- 
einander fallen. Jetzt läßt sich 
das obere Gehäuseteil leicht abhe- 
ben. Spätestens jetzt legt man das 
Gerät auf eine weiche Unterlage. 
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Nun hebt man die Tastatur vor- 
sichtig ab und klappt sie um. Da- 
bei achtet man darauf, daß das 20- 
polige Verbindungskabel zur 
Hauptplatine nicht geknickt oder 
zu stark belastet wird. Dann 
nimmt man die fünf Abstandgum- 
mis ab und merkt sich ihre Posi- 


Platinenausschnitt : 


Hat man die beiden auf dem Plan 
angegebenen Punkte A und B ge- 
funden, so muß man nur noch das 
Kabel an den beiden Punkten an- 
löten und auf der anderen Seite 
mit dem Taster verbinden. 

Jetzt sucht man sich einen ge- 
eigneten Platz im Gehäuse für den 
Taster, an dem er keinen Kurz- 
schlußverursacht. 

Danach erfolgt der Zusammen- 
bau der Einzelteile in umgekehrter 
Reihenfolge wie oben angegeben. 


tion. 

Erst jetzt kann man die Haupt- 
platine zusammen mit der Tasta- 
tur aus der unteren Gehäuseschale 
heben. 

Hat man das geschafft, sucht 
man IC Z 53 und merkt sich sei- 
ne Position; dann dreht man die 


cm Z 



Nachdem man sich vergewissert 
hat, daß keine Teile übriggeblie- 
ben sind, stellt man die Verbin- 
dung zur Peripherie wieder her. 
Nun kann das Gerät wieder in Be- 
trieb genommen werden. 

Hat man keine Fehler gemacht, 
so müßte bei jedem Druck auf 
den Taster der Computer mit 
"MEM SIZE?" antworten. Dabei 
werden sämtliche Pointer In den 
Grundzustand zurück gesetzt. 

Der Vektor für dieses Reset 


beiden Platinen gleichzeitig um 
und sucht den unten angegebenen 
Platinenausschnitt. Eine Orientie- 
rungshilfe bietet dabei die Posi- 
tion der CPU, dem einzigen 40- 
poligen IC auf der Karte. 
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liegt unveränderlich fest und zeigt 
auf die Adresse 0000H. 

Der Speicherinhalt bleibt fast 
vollständig erhalten und so kann 
man nach einem Reset fast im- 
mer weiterprogrammieren. 

Ferner erzeugt ein Druck auf 
den Taster auch ein Signal auf 
dem Ausgang SYSRES (Pin 2 des 
Expansionport), d. h. auch Peri- 
pheriegeräte werden in den An- 
fangszustand gebracht. 

Frank Nicklisch 
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Computertag in Hof 

Der in der letzten GENIE DATA und beliebiger Schriftwahl wurde lichsten Dinge vor, die auch von 
angekündigte Hofer Computertag demonstriert was in diesem Gerät absoluten Laien schnell nachzu- 
konnte als großer Erfolg angese- steckt. vollziehen waren. Auch hier waren 

hen werden. Auch die sonstige Software war natürlich die Anwender der Wirt- 

Schon kurze Zeit nach Eröff- nicht ohne Pep. So wurde ein Pro- schaft und des Gewerbes gedul- 
nung des Veranstaltungsortes füll- gramm gezeigt, das dreidimensi- dige Zuhörer, die ihren Betrieb 
te sich der Saal mit interessierten onale Darstellung in Bewegung auf den Stand der Zeit bringen 
Laien und "Freaks", die an den setzte und in erstaunlicher Ge- wollten. Für Anfänger auf dem 
verschiedensten Computern Mög- schwindigkeit eine Funktion "pul- Gebiet der Computerei, wurde am 
lichkeiten und Perspektiven der ste". VZ 200 Color gezeigt, daß auch 

EDV in Heim, Hobby und Beruf Für Geschäftsleute interessant schon mit einfachen Mitteln eine 
erfahren konnten. waren die Demonstrationen auf EDV zum "Sprechen” zu bewe- 

Von Anfang an belagert wurde Genie II und III. Hier konnte jede gen war. So wurde manchem 
die heißersehnte Floppy für das Software-Frage geklärt werden, da Skeptiker die Wirkungsweise eines 
Colour Genie. An den gezeigten der Chefprogrammierer der Firma solchen Gerätes klar und viele gin- 
Programmen, die von Uwe Trommeschläger, Herr Krüger, je- gen nach Hause mit dem Gedan- 
Schmidt (Script Programm, de Frage bereitwillig beantworte- ken, sich ein solches Wunderding 
GENIE DATA Nummer 4) vorge- te. Besonders die Möglichkeiten zuzulegen. Alles in allem kann ge- 
stellt wurden, konnte man sich des Genie III wurden immer wie- sagt werden, daß dieser Tag so- 
von der leistu ngsfäh igkeit des Peri- der demonstriert, von professio- wohl für die Besucher als auch für 
pheriegerätes überzeugen. Auch neller Buchführung bis zur Lohn- den Veranstalter, den Computerla- 
die Fähigkeiten des Druckers Star abrechnung und Lagerverwaltung den Hannelore Staudt, ein voller 
DP 510/515 wurden von Hobby- reichten die Vorführungen, die mit Erfolg gewesen ist, da hiereinem 
Programmierern gezeigt. Von offenen Ohren aufgenommen strukturschwachen Gebiet neue 
Funktionsplot mit Einzelpunktan- wurden. Perspektiven gezeigt wurden. 

Steuerung, natürlich in Maschinen- Farbgrafik war die Parole beim 
spräche, bis zum Textverarbei- Computer M23 von Mitsui-Sord. 

tungsprogramm mit Blockversatz Herr Takama führte die erstaun- Markus Heß 
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Haben Sie schon einmal auf Ih- 
ren Disketten ein Programm ge- 
sucht und nicht gefunden? 

Jetzt hilft Ihnen Prog 83 da- 
bei. Mit dieser Datei haben Sie 
die Möglichkeit Ihre Programme 
folgendermaßen sortiert auszuge- 
ben: 

a) nach Disketten sortiert 

b) nach Programmen sortiert 

c) den freien Platz auf Ihren 

Disketten 

d) wahlweise auf Drucker oder 
Monitor 

Prog 83 ist eine Diskettenda- 
tei, die auf New Dos 80 Vers. 


2.0 läuft. Die Datei wurde für 
ein doppelseitiges Laufwerk ge- 
schrieben, läßt sich aber in dem 
Diskettenzugriff auf andere Kon- 
figurationen ändern. 

Wichtig ist, daß die Disketten 
fortlaufend numeriert sind und 
der Name ein bestimmtes Format 
hat (Prot,0,Name=Disk-NN(NN= 
fortlaufende Nummer)). 

Da beim ersten Lauf noch keine 
Daten auf der Diskette sind, 
muß in Zeile 10 das Goto 990 ge- 
löscht werden. Nach dem Starten 
des Programmes eröffnet man mit 
N die Datei. Danach Goto 990 


wieder einfügen. 

Die Datei faßt 99 Disketten 
oder ca. 1248 Programme. 

Prog 83 ist eine sequentielle 
Datei, die Ihre Daten direkt zu 
Anfang in den Speicher liest. Des- 
halb ist sie schneller als Random- 
dateien. 

Einige Hinweise wären noch, 
daß Punkt B im Menue nur die 
doppelten Namen aus der Liste 
löscht. Auf Bank 1 werden die 
Originaldaten gespeichert, wie sie 
von den Disketten gelesen werden, 
da Bank 1 automatisch beim Star- 
ten des Programmes eingelesen 
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wird. Zudem hat man die Möglich- 
keit mit Bank 2 eine Liste zu 
speichern, die man mit Punkt 
B,C,D modifiziert hat. Zum Such- 
en reicht schon der Anfangs- 
buchstabe von dem Namen des 
Programmes aus. 

Beim Menue sind in der letz- 
ten Reihe einige Werte angege- 
ben, die sich wie folgt aufglie- 


dern: 

1 ) Free=Freier Platz für die 
Programme 

2) Anzahl Prog.=bedarf keiner 

Erklärung 

3) momentane Ausgabe 
(Printer oder Monitor) 

4) Angabe des Banks 

Wer möchte, bekommt gegen 
Zusendung einer Diskette mit 


New Dos 80, plus Angabe seiner 
Gerätekonfiguration, plus Unko- 
stenbeitrag von 10,00 DM das 
Programm seinem Gerät ange- 
paßt zurück. 

Falls Fragen auftauchen, rich- 
ten Sie sich bitte an folgende 
Adresse: 

Michael Weidmann 
Rübenacher Str. 1 15 
5400 Koblenz 


10 CLEAR2ÖOQO : DEFINTA— Z: DIMA* <2000) , GR (75) * HD=-Os PZ=Os PR=1 : PR*="Mani tor 
on “ : GOSUB 1090: GOSUB835 : 60SUB 1 200 : G0TD990 
20 6OT029 

25 LPRINT 

26 PR INT0961, "ENTER =MENUE SPACEBAR =WIEDERHOLUNG" ; 

27 A=PEEK ( 1 4400) : IFA=1THEN29ELSEIFA=1 28THEN160ELSE27 

29 G03JB87O: PRINT " M. E. N. U. E“ : PRINT: PRINT 

30 PRINTTAB(l) "A> Aufnahme neuer Disk" ; TAB (40) " I > Monitor" 

35 PRINTTAB(l) "B> Sorti eren" ; TAB (40) " J> Drucker" 

40 PRINTTABU > "C> Loeschen von Di sk" ; TAB (40) "K> Suchen" 

45 PRINTTAB(l) "D> Loeschen von Prag. " ; TAB (40) "L> Beenden" 

50 PRINTTAB U ) "E> Ausgabe -freier Grans" ; TAB (40) “M> Ausgabe einer Disk" 
55 PRINTTABU) "F> Ausgabe Di sksorti ert " : TAB (40) "N> Ausgabe Progsortiert 

N 

60 PRINTTABU) “G> Speichern Bank 1 ": TAB (40) "0> Laden Bank 1" 

62 PRINTTABU) "H> Speichern Bank 2" ; TAB (40) "P> Laden Bank 2" 

130 P=PZ— 1 : P 1=1 248— P 

140 PRINT8961 « "Fr ee=" PI " Anzahl . Prog . ="P" "PR*;" "PB*; 

150 A*= INKEY*: I FA*=" " THEN150ELSE1 60 

160 IFA*="A"THEN320 

161 I FA*= "O " THEN 1020 

162 IFA*="H"THEN972 

163 I FA*= "P" THEN 1032 
170 IFA*="E" THEN 1060 
180 I FA*= "G " THEN930 
190 IFA*="L" THEN 1260 
200 IFA*="D"THEN515 
210 I FA*= "K” THEN560 

220 IFA*="J"THENPR=0:PR*="Printer on":G0T029 

221 I FA*= "F " THEN670 

222 I FA*= "M" THEN635 

223 IFA*="N"THEN740 
230 I FA*= " B " THEN 1 240 
240 I F A*= " @ " THEN29 
250 IFA*="C"THEN540 

260 IFA*~"I"THENPR=U:PR*="Monitor on“ :GDT029ELSE140 
270 GOTO 140 

290 ’ AUFNAHME NEUER DISKETTEN 

320 CMD"DIR 0 

330 G0SUB400 : GR ( B ) =0 : GDSUB390 : GDSUB4 1 0 : G0SUB360 
340 CMD"DIR 1 

350 GDSUB390: G0SUB360: G0SUB420; G0T025 

360 RESTORE: F0RX=1T020: PZ=PZ+1 : READY: GQSUB370: NEXTX: RETURN 
370 A=PEEK(Y) : IFA=32THENA* <PZ )="ZZZZ" : RETURNELSE3BO 

380 X*=" : FDRY1=YT0Y-U 1 : X*=X*+CHR* (PEEK < Y1 > ) : P0KEY1 ,191: NEXTY1 : A* (PZ ) =X 
*:A*(PZ)=A*CPZ)+C*: RETURN 

390 V*=CHR* (PEEK (15413)): B*=CHR* ( PEEK (15414)): GR*=V*+B* : GR ( B ) *GR ( B ) +VAL 
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(GR*) 3 RETURN 

400 V*=CHR*(PEEK( 15376) ) : B*=CHR* (PEEK ( 15377) ) s C*=V*+B*: B=VAL <C*> : GR (EU = 
0: RETURN 

410 GR(B)=0:F0RX=1T0PZ: IFVAL(RIGHT* CA* (X) ,2) ) =BTHENA* ( X) =" ZZZZ" s NEXTs RE 
TURNELSENEXT: RETURN 

420 G0SUB425: CMD-O" , PZ , A* (O) s A=0: F0RX=1 TOPZ: I FA* (X) ='• ZZZZ "THENPZ=PZ-1 : N 
EXT : RETURNELSENEXT : RETURN 

425 F0RX=0T010: IFLEFT* ( A* ( X) , 1)=" "THENA* (X ) ="ZZZZ" : NEXT: RETURNELSENEXT 
RETURN 

510 ’ LOECHEN VON PROGRAMMEN 

515 60SUBB70: PRINT : PRINT : PR INT ,,= Y=Loe sehen des Namens =N=Weiter =Q 
=Menue“ 

520 F0RX=1T0PZ: PRINT0513, "Disk Nr . "RIGHT* (A* (X) , 2) ? " "LEFT* (A* ( X) , 12) 

; : GDSUB525: NEXTs G0SUB420: G0T025 

525 B*= I NKEY* : I FB*= "O " THENG0SUB420 : G0T029ELSE I FB*= " N " THENRETURNELSE IFB* 
= "Y" THENA* (X) ="ZZZZ" : RETURNELSE525 

540 G0SUB870:PRINT@514, "Welche Diskette wollen sie 1 oeschen " ; : I NPUTB : GO 
SUB41 0: G0SUB42O: G0T025 

550 ’ SUCHEN NACH PROGRAMM 

560 G0SUBB7Ö 

570 PRINTÖ257, "Bitte Programmname angeben INPUTE* 

580 B=LEN <E*) 

590 GQSUB870: A=65sFQRX=lT0PZ: IFLEFT* (A* ( X) , B) =E*THENC=VAL (RIGHT* (A* ( X > , 
2) ) : PRINTSA, "D" ;C;‘* = “LEFT* (A* ( X ), 1 2) ; s A=A+32: NEXTs G0T025ELSENEXT: IFA 
=65THEN6 1 0ELSE25 

610 PRINT@513, "DAS PROGRAMM "E*" IST NICHT IN DER DATEI ENTHALTEN" GOT 
025 

630 * AUSGABE — 

635 G0SUBB70:PRINT@257, "Welche Diskette wollen sie Sehen"; s INPUTXsGOSUB 
690 s GOT025 

670 G0SUBB35 s FDRX = 1 TOPZ : Y=VAL < R I GHT* ( A* < X ) , 2 ) ) s I F Y >HDTHENHD=Y s NEX TELSEN 
EXT 

680 F0RX=0T0HDs GOSUB690s G0SUB701 s NEXTXs G0T025 

690 LPRINT s LPRI NTSTRI NG* ( 64, ) : CLS: G0SUB710: LPRINT s LPRINTTAB (20) " INHA 
LT DER DISKETTE NR. "; X : 60SUB710: LPRINT: ZZ=ZZ+6 

700 A=Os FORY=1TOPZ: IFVAL (RIGHT* (A* (Y) , 2) ) < >XTHENNEXTY s RETURNELSELPR I NTT 
AB ( A) LEFT* (A* (Y) , 12) ; :A=A+15* IFA=6OTHENA=0: ZZ=ZZ+1 : G0SUB710- LPRINT: NEXT 
Ys RETURNELSENEXT: RETURN 

701 PRINT@980, "ENTER = MENUE" F0RPP=1T0P1 s A=PEEK ( 14400) : IFA=1THEN25ELS 
ENEXTs RETURN 

710 I FZ Z >=65THENF0RS= 1T020 : LPR I NT : NEXT : ZZ=0: GQT0690ELSERETURN 
715 I FPR= 1 THENFQRK= 1 T02000 : NEXTs RETURNELSERETURN 

740 Y=Os G0SUBB35: LPRINTTAB ( 15) "> >>PROG 83 << <": LPR INT: LPRI NTTA 
B ( 10) "DISKETTEN-DATEIPROGRAMM V. 1.0 LPRINT: LPRINT: LPRINT : LPRINT: GOT 

0760 

750 LPRINTTAB (O) "NR. ";TAB<5) "NAME" ; TAB (30) "NR. ";TAB(35) "NAME" s LPRI NTSTR 
ING* (55, CHR* ( 130) ) : RETURN 
760 G0SUB750: Z=7: P=1 
770 F0RX=1T0PZ 

780 Z=Z+1: IFZ=130THENSI=SI+1 : PRINT : PRINTTAB (50) "SEITE"SI : PRINT : PRINT : PR 
I NT : PR I NT : Z=2 : G0SUB750 
790 G05UB831 

800 I FLEFT* ( A* ( X ) , 12) =B*THENNEXT: G0T025ELSEB*=LEFT* ( A* ( X) , 12) 

8 1 0 Y=Y+ 1 : I FP= 1 THEN820ELSEB30 

820 LPRINTTAB (O) Y s TAB (5) LEFT* ( A* ( X) , 12) ; :F=2: NEXTs GDT025 

830 LPRINTTAB (30) Y; TAB (35) LEFT* (A*(X) , 12) : P=1 : NEXT: G0T025 

83 1 Q=PEEK ( 1 4400 ) : I FQ= 1 THEN25ELSERETURN 

835 I FPR= 1 THENCLS : P 1 =900: GOT0836ELSECLS : P 1 =2 : G0T0838 

836 CMD" ROUTE, PR, DO 

837 RETURN 
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838 CMD"ROUTE,CLEAR 

839 RETURN 

870 CL5: PRINTÖ13, "DISKETTEN-DATEI -PROGRAMM VERS. 1.0 ": RETURN 

920 'DISK I/O 

930 0PEN"0” . 1 , "GRAN/DAT“ , "FF" , 3 

940 G0SUB420 s F0RX=1 T075 s PUT1 , X , , GR ( X > ; a NEXT : CLOSE 
960 aPEN" 0 M , 1 , ■' PRO/DAT" , "FF" , 14 

970 FCHRX“ 1T0PZ* PUT1 , X , , <14)A*<X) ; : NEXT: CLDSEa G0T029 
972 OPEN " O " , 1 , " B ANK2 / DAT " , " FF ",1 4 

974 FQRX“lTÖPZs PUT1 , X, , <14)A*(X ) 5 s NEXT a CLOSE* G0T029 
990 OPEN“ I" , 1 , H GRAN/DAT" , "FF" , 3 
1000 F0RX™1T075: GET 1 , X, , GR (X ) * * NEXT : CLOSE 
1020 OPEN " I " , 1, “PRO/DAT", "FF“, 14 

1030 FORX-lTOLOF(l) :GET1,X,, ( 14) A* (X) 5 : NEXT* PZ=Xs CLOSE* PB*=“Bank 1“*G0S 
UB420 1 G0T029 

1 032 DPEN " I " , 1 , " B ANK2 / d at ' FF " , 1 4 

1034 FORX= 1 TOLOF ( 1 ) : GET 1 , X , , ( 14) A* ( X) NEXT: PZ=X : CLOSE: PB*="Bank 2"*G0S 
UB420: G0T029 

1050 'AUSGABE GRANS 

1060 G0SUB835*LPRINTTAB<15) "Liste der -freien Grans pro di sk" : LPRINT 

1 069 A=*0 : FORX= 1 T075 : I FGR ( X ) =OTHENNEXTELSELPR I NTT AB ( A) " Nr - X 5 " > “ ; GR ( X ) ; : A 
=A+15: IFA=60THENA=0: LPRINT: NEXTELSENEXT 

1070 G0T025 

1080 'DATEN UND EINLEITUNGSTEIL 

1090 DATA15488, 15503, 15518, 15533,15552, 15567, 15582, 15597, 15616, 15631,15 
646, 15661,15680, 15695, 15710, 15725,15744,15759, 15774, 15789 
1100 RETURN 

1200 CLS:F0RX=0T0127: : SET (X,0) : NEXT: F0RY»0T047: SET <127, Y) : NEXT* F0RX=127 
TOOSTEP— 1 : SET < X , 47 ) a NEXT* FORX-47TOOSTEP-1 * SET <0, X) s NEXT 

1210 PRINT©84,"> > > P R 0 G 83 << < " ; : PRINT0198, "D iakettend 
atei Programm vers.1.0"; 

1220 PRINT8406, “Geschrieben von“; 

1230 PRINTQ518. "Michael Weidmann 5400 Koblenz Ruebenacherstr . 1 15" ; 
1234 PRINT0664, " 1 9 8 3";:RETURN 

1 240 CLSa F0RX=1 TOPZ * IFLEFT* < A* < X ) , 1 2) =B*THENLPRINTA* ( X ) " " ? s A* ( X ) =" ZZZ 

Z":NEXT:GG5UB420:GOT029ELSEB*=LEFT*<A*(X> , 12) : NEXT: G0SUB42O* GÜT029 
1 250 FORX= 1 TOPZ * I FLEFT* < A* < X > , 1 2 > =B*THENLPR I NTA* ( X ) ; “ " ; : A* (X )=" ZZZZ" : 

NEXT: G0SUB420: GDT029ELSELEFT* <A* <X) RSET12) =B*:NEXT: G0SUB420* G0T029 
1260 CLS:PRINTe257,“A=New Dos/80 B=Basic"s : INPUTA*: IFA*«"A"THEN1270EL 
SEEND 
1270 CMD"s 
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Ein Satz, der wirklich stimmt! 

Ein Abo der Fachzeitschrift GENIE DATA bringt Ihnen wirklich nur Vorteile. 
Zum Beispiel läuft in der nächsten GENIE DATA unsere große Serie über Z 80 
Assembler- Programmierung. Ein GENIE DATA Abo stellt sicher, daß Sie keinen 
Teil versäumen. Oder Sie haben als Abonnent der GENIE DATA den weiteren Vor- 
teil, daß Sie unter der Rubrik Kleinanzeigen drei Textzeilen kostenlos erscheinen 
lassen können. 

Also; Füllen Sie die eingeheftete Bestellkarte aus, und sichern Sie sich Ihr persön- 
liches GENIE DATA Abonnement! 
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Unter Umständen hatten auch haben, empfiehlt es sich, daß 2. Bild auf Diskette speichern 
Sie schon Probleme mit dem Programm vor dem Start auf Wenn Sie Ihr Werk vollendet ha- 

erstellen von Grafiken auf dem Diskette zu speichern. Wenn es ben, und es für die Nachwelt 

Genie I, II oder III. dann endgültig läuft, haben Sie konservieren wollen, haben Sie 

Wenn das der Fall ist, dann folgende Funktionen zu Ihrer die Möglichkeit, das Kunstwerk 

erhalten Sie mit GRES ein Pro- Verfügung: auf Diskette zu sichern. Sie 

gramm, daß Ihnen helfen kann, 1. Bild zeichnen tippen dazu gleichzeitig SPACE 

diese Probleme zu lösen. Um ein Bild auf den Bildschirm und Hochpfeil. Das Bild wird 

Um GRES in Betrieb zu nehmen, zu zeichnen können Sie die dabei unter dem Namen, den Sie 
benötigen Sie einen der oben vier Pfeiltasten benutzen. Nach- am Anfang eingegeben haben, auf 
genannten Computer, mit Drucker dem Sie den Namen eingegeben Diskette geschrieben. Übrigens 
und zwei Disketten-Laufwerken. haben, unter dem Ihr Werk auf wird dabei der Monitor zur 
Zur Not geht es auch mit einem Diskette gespeichert werden soll, Kontrolle weiß geschrieben, aber 
Laufwerk, allerdings müssen dann löscht sich der Monitor und ein nicht erschrecken, Ihr Bild liegt 
die Zeilen 22 und 48 geändert kleiner Cursor steht erwartungs- ja auf der Diskette, von wo 
werden, und zwar dermaßen, voll blinkend in der linken oberen Sie es jederzeit wieder l3den 
daß statt Laufwerk 1, Laufwerk 0 Ecke. Diesen Cursor steuern Sie können, 
angesprochen wird. jetzt mit den Pfeiltasten. Er wan- 3. Bild von Diskette laden 

Ansonsten isf zum Aufbau des dert dabei über den Schirm Um diese Funktion aufzurufen, 
Programmes an und für sich nicht ohne eine Spur zu hinterlassen, tippen Sie SPACE und Tief- 
mehr viel zu sagen, höchstens und das ist für zwei Dinge gut. pfeil. Daraufhin erscheint die 
noch, daß die Druckroutine ab Sie können nämlich so an den Directory von Drive 1 auf dem 
Zeile 56 aus der GENIE DATA Punkt fahren, von dem aus Sie Bildschirm, und Sie werden auf 
Nummer 2 stammt und einfach an mit Ihrem Bild beginnen oder gefordert, einen Namen einzuge- 
den Star DP 510 angepaßt wurde, aber Sie können auf diese ben. Das unter diesem Namen 
Sollten Sie mit dem Star DP 8480 Weise bereits 'gezogene Striche gespeicherte Bild wird nach RE- 
arbeiten, so kann die Routine aus wieder löschen. Wenn Sie dann TURN geladen und erscheint 
Nummer 2 unverändert übernom- da sind, wo Sie hinwollen, kön- dann auf Ihrem Monitor, 
men werden. In Zeile 56 wird nen Sie durch gleichzeitiges 4. Extras 

auf Schmal-Schrift umgeschaltet, Drücken von SHIFT Und Links- Sie haben zu jederzeit die Mög- 
da sich so das am wenigsten pfeil in den Zeichen-Modus ge- lichkeit, daß Bild auf ihrem 
verzerrte Bild ergibt. Sollten Sie hen. Hier wird der Cursor genau- Monitor zu drucken, dazu tippen 
aber mit normaler Schrift arbei- so bewegt, mit dem Unterschied, Sie einfach RETURN. Übrigens 
ten wollen, so kann Zeile 56 daß er jetzt einen Strich zieht, können Sie die Bilder auch mit 
durch REM ersetzt werden, bitte Um wieder in den Lösch-Modus Text mischen, den Sie einfach 
nicht löschen, da diese Zeile zu kommen, drücken Sie SHIFT über die Tastatur eingeben. Aber 
den Anfang eines Unterprogram- und Rechtspfeil. Um den ganzen statt SPACE tippen Sie zweimal 
mes bildet. Schirm zu löschen, benutzen Sie die Links-Pfeil-Taste. 

Wenn Sie GRES übernommen die CLEAR-Taste. 

1 CLS 

2 0NERR0RG0TQ55 

3 PR INT '*############################################################### 

4 PRINT"# 

5 PRINT“# 


GRES 
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6 PRINT"# 

7 PRINT "###*##**#*##•################################################## 

I». 

0 PRINT" Grafik Editor - (c) 1903 by GENIE DATA" 

9 PRINT 

10 PRlNT“Hochpf eil = Cursor hoch“ 

11 PRINT“Tief pf eil = Cursor runter" 

12 PRINT“Linkspf eil = Cursor links" 

13 PR INT" Rechtspfeil = Cursor rechts" 

14 PRINT"Linkspf eil + Space 

15 PR INT “Rechtspfeil + Space 

16 PRINT "Hochpfei 1 + Space 

17 PR INT "Tief pfeil + Space 

18 PR INT "Return 

19 IFINKEY*=" "THEN19 

20 CLSt LINEINPUT"Wie soll das Bild 

21 X*=RIGHT*(NA*,4)s IFLEFT*(X*, 1) = 
ichnung bitte weg. " : G0TÜ20 

22 NA*=NA*-*-"/dats 1" 

23 CLS 

24 X=0:Y=0:M=0 

25 SET (X, Y) :FORI=1T02:NEXTI : RESET (X,Y) 

26 A*= INKEY* 

27 IFA*< >" "THENIFASC (A4) >32X1=INT (X/2) : Y1 
t X=*X+2 


Modus Zeichnen" 

Modus Löschen" 

Speichern auf Diskette" 
Laden von Diskette" 

Bild ausdrucken"; 


heißen (z.B. Grafik) 
/"THENPRINT" Lassen Sie 


";NA* 

die Datei beze 


F0RI=1T02: NEXTI 


=INT <Y/3) : PRINTSX 1+ ( Y1 *64) , A*; 


20 IFPEEK <16444) =0THENGDT025 

29 S=PEEK( 16444) 

30 IFS=8THENIFM=0THENRESET (X, Y) s Y=Y-1 JG0T025 

31 IFS=16THENIFM=0THENRESET(X,Y> : Y=Y+1 : G0T025 

32 IFS=32THENIFM=OTHENRESET(X, Y) j X=X-1 s G0T025 

33 IFS=64THENIFM=0THENRESET ( X , Y ) : X=X+ 1 : G0T025 

34 I FS=BTHEN I FM= 1 THENSET ( X , Y ) : Y=Y— 1 : GQT025 

35 IFS=16THENIFM=1THENS£T(X,Y) : Y=Y+1 : GDT025 

36 I FS=32THENIFM=1 THENSET < X, Y> : X=X-1 s G0T025 

37 IFS=64THENIFM=ITHENSET (X, Y) : X=X+1 sGQT025 

38 1FS=160THENM=1*G0T025 

39 IFS=192THENM=O:G0TO25 

40 IFS=136THENG0TO45 

41 IFS=144THENGQTQ48 

42 I F S=2THENCLS 

43 IFS=1THENG0SUBS6 

44 G0TO25 

45 ÜPEN"0" , 1 , NA* 

46 FOR I «= 15360T0 16303s PR I NT# 1,PEEK<I) sPOKEI, 191 : NEXTs CLOSE 

47 CLS: G0T03 

48 CLS:CMD"dir 1“ 

49 INPUT "Name"; NA* 

50 OPEN" I", 1, NA* 

51 FOR 1=1 5360T0 1 6383 s INPUT#1 , As POKEI , A: NEXT: CLOSE 

52 IFINKEY*=“ "THEN52 

53 GQT024 

54 PRINTPEEK < 16444) :GOT054 

55 RESUME24 

56 LPRINTCHR* (15) 

57 LPRINTCHR* (27) "3"CHR* (6) 

58 DI MC (63 ) , B (63) * FORX=OTD63s C < X ) =224 s B ( X ) =224 » NEXTX : Y=0 

59 F0RN=0T015 

60 F0RX=0T063:B=PEEK(15360+N*64+X> s I FB > 1 27THENG0SUB63ELSELPR I NT CHR* ( B ) ; 
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61 NEXTX: IFY=OTHENLPRINTCHR* < 13) ! LPRINTCHR* < 13) : NEXTN: RETURN 

62 LPRINT :F0RX=0TO63: LPRINTCHR* (C (X> ) ; : NEXTX : LPRINT : F0RX=0T063: LPRINTCH 
R* <B (X) > ; : NEXTX: Y=Os FORX=OT063: C < X) =224: B (X) =224: NEXTX: LPRINT« NEXTNl LPR 
I NTCHR* ( 7 ) : RETURN 

63 Y=1 

64 A=B AND 3 

65 GOSUB72 

66 LPRINTCHR*(W) ; 

67 A=(B AND 12) /4: G0SUB72 

68 C(X)=W 

69 A= (B AND 48) /16: B08UB72 

70 B(X)=W 

71 RETURN 

72 I F A= 1 T HE NW=225 : RET URN 

73 IFA=2THENW=227: RETURN 

74 IFA=3Th£NW=231: RETURN 

75 IFA=0THENW=224: RETURN 


Um mit dem Star DP B480 za arbeiten, nehmen Sie 
■folgende Änderungen vor: 

Löschen Sie die Zeilen 56 bis 75. 

Ändern Sie Zeile 43 in: IF S=1 THEN GOSUB 5005 
übernehmen Sie untenstehende Zeilen in Ihr Programm. 

5005 LPRINTCHR* < 27) CHR* (68) « LPRI NTCHR* < 27) CHR* ' 65) CHR* <7)8 DIMC (63) , 3 <63> « 
F0R?<=0T063: C(X) =128* B 00=128« NEXTX: Y=0 
5010 FQRN-0T015 

5015 FDRX»0T063s B=PEEK <1 5360+N*64+X> : IFB> 127THENG0SUB5100ELSELPRI NTCHR* <B 

) ? ■. ... • 'V,- 

5020 NEXTX! IF Y-OTHENLPRI NTCHR* (13) : LPRINTCHf# < t5) : NEXTN« LPR I NTCHR* (7 > « RET 
URN 

5025 LPRINT« F0RX=0T063: LPRINTCHR* (C (X) ) 5 : NEXTX: LPRINT« F0RX-0T063* LPRINTCH 
R* < B OO ) s s NEXTX : Y=0 : F0R)(=0T063 « C (X > * 1 28 : B < X > * 1 28 « NEXTX « LPR I NT : NEXTN t LPR I N 
TCHR* (7) «RE'TURN 
5100 Y= 1 
5105 A=BAND3 
5.110 G0SUB5200 
5115 LPRINTCHR* (W) ? 

5 1 20 A= ( BAND 1 2 ) / 4 s G0SUB3200 
5125 C(X)=W 

5130 A= ( BAND48 ) / 1 6 « G0SUB5200 
5135 BOO=W 
5140 RETURN 

5200 IFA=1THENW= 145 «RETURN 
5205 I FA=2THENW= 1 48 : RETURN 
5210 IFA=3THENW=225« RETURN . 

5215 IFA=OTHENW= 123 «RETURN 
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Assembler-Teil 1 


ln dieser Serie möchte ich Ihnen ständlichkeit von Assembler. Ja, wenn das Programm kurz ist), 
beibringen, wie Sie Ihren Com- Sie haben schon richtig gehört! die zwar für den Menschen sinnlos 
puter {Colour Genie oder Video Das kann manchmal auch ein sind, die der Computer aber als 
Genie/TRS-80) in Assembler pro- Vorteil sein. Nehmen Sie an, Befehle versteht. Da es für uns 
grammieren können. Leider ist Sie schreiben ein Programm in Menschen aber sehr beschwerlich 
Assembler alles andere als eine Basic. Als es fertig geworden ist, wäre, diese endlose Reihe von 
einfache Sprache, und so kann es gefällt es Ihnen so gut, daß Sie Zahlen, die die verschiedenen 
H leicht passieren, daß das Thema sich denken:' 'Sol len doch auch Anweisungen an den Computer 

allzu trocken wird. Um dem andere Menschen an meinem darstellen, zu behalten und daraus 
vorzubeugen, werde ich mich Glück teilhaben", sprich Sie wol- ein Programm zu entwickeln, 
um einen etwas weniger form- len Ihr Programm verkaufen. lassen wir uns von einem anderen 

liehen Ton in dieser Serie be- Gesagt, getan. Sie verkaufen Programm helfen. Dieses Pro- 

mühen. (Toll was?). Also lassen Ihr Programm an mehrere Leute gramm ist der sogenannte 
Sie mich gleich "unförmlich" und unter diesen ist auch ein ASSEMBLER. Wir geben ihm 
anfangen: Herr ... nun nennen wir ihn die Befehle in Buchstaben ein, d. 

Hallo Leute! Bogart. Dieser Herr Bogart schaut h. in für uns sinnvollen Worten. 

Jetzt habt Ihr da Euren tollen sich Ihr Programm an, findet Mit diesen Wörtern kann der 
Computer mit seiner tollen Spra- es sei ja gar nicht so schlecht und Computer selber nämlich garnichts 
-che Basic, und da taucht schon fängt an, fröhlich Kopien davon anfangen. Aber dafür ist ja der 
wieder so'n Typ auf, der Euch zu machen, um diese seinerseits Assembler da. Er übersetzt unsere 
davon überzeugen will, daß Ihr zu verkaufen. Und es ist so ein- Wortsymbole in die Zahlen, die 

eine andere Sprache lernen müßt, fach CLOAD und CSAVE und der Computer als Befehle er- 

Gerade Basic halbwegs gelernt und CSAVE ... kennt. 

schon wieder pauken? "Nein dan- Natürlich können Sie sich dage- Aber Sie haben mich vom 

ke" werdet Ihr sagen, " da blät- gen wehren, z. B. vor Gericht Thema gebracht. Ich wollte ge- 
ter' ich lieber weiter". gehen, aber vielleicht wäre Ihnen rade die Nachteile der Assembler- 

ABER HALT! der ganze Ärger erspart geblie- spräche aufzählen. 

Ich habe nämlich einige gute ben, wenn Sie das Programm in Erstens: 

Argumente, warum Ihr trotz- Assembler geschrieben hätten, Assembler ist schwerer zu er- 
dem weiterlesen solltet! denn vielleicht hätte Herr Bogart lernen als Basic. Wir können 

Z. B. wird es Spaß machen, nicht gewußt wie er ein Assemb- uns nicht einfach denken: Drucke 
Außerdem lernt Ihr was dabei, lerprogramm kopieren kann. Hallo auf den Bildschirm und es 

und ... nun ja ...äh ... das waren Es gibt natürlich noch mehr dann in English (bzw. Basic) 

meine Argumente. Zwar nicht Vorteile, aber da diese Liste übersetzen: PRINT "Hallo", 

einige, aber immerhin doch zwei, keinen Anspruch auf Vollständig- Um unser Hallo auf den Bild- 
Wenn das nicht genug ist. keit erhebt, beginnen wir jetzt schirm zu bringen, müßten wir 

Aber jetzt genug der Vorrede, mit den Nachteilen in Assembler extra ein kleines 

Ich glaube, wenn Ihr bis hier- Aha, wieder der Herr aus der Programm schreiben. Denn die 

hin gelesen habt, dann gehört letzten Reihe. Was wollen Sie Befehle die unser Computer direkt 

Ihr zu den Leuten, die nichts diesmal wissen? Ach, Sie möch- versteht, sind viel primitiver als die 
erschüttern kann und die ten den Unterschied zwischen Befehle der Computersprache 
diesen Unsinn auch noch in der Assembler und Maschinensprache Basic. Aber dafür sind sie auch 
nächsten Ausgabe lesen werden. erklärt haben? Habe ich das viel schneller. 

Ja bitte? Der Herr dort in der wirklich nicht erwähnt? Ein zweiter Nachteil ist, daß 

letzten Reihe? - Ah, Sie wollen Nun, die Bezeichnung Assemb- die meisten Assemblerprogramme 
wissen, welche Vorteile Assembler lerprogramm ist ungenau, aber mehr Platz im Speicher des 
gegenüber Basic hat? damit ist ein Maschinenprogramm Computers brauchen als Basic- 

Nun, der Hauptvorteil ist die gemeint. Ein Maschinenprogramm Programme, eben weil wir mehr 
Geschwindigkeit. Assembler ist kann der Computer nämlich direkt Befehle als in Basic brauchen, 
nämlich schnell. Bis zu 1000 verstehen, es besteht aus einer lan- Aber jetzt habe ich Euch 

mal schneller als Basic. Ein zwei- gen Reihe von Zahlen (oder aus mit meinem Gerede genug ge- 
ter Vorteil ist die schwere Ver- einer kurzen Reihe von Zahlen, langweilt, fangen wir also mit 
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dem praktischen Teil an. 
SCHALTEN SIE DEN COMPU- 
TER EINI 

Und jetzt geben Sie folgendes 
Programm ein: 

Für das Colour Genie: 

1 FOR X=&H4400TO &H47FF 

2 POKE X,202:NEXT 
und für das Video Genie: 

1 FOR X= 15360 TO 16383 

2 POKE X, 1 9 1 :NEXT 

und starten Sie es mit RUN. 

Wahnsinn, was? Aber jeder 
fängt mal klein an ... 

Aber lassen Sie uns rekon- 
struieren, was passiert ist. 

Der Bildschirm wurde angemalt, 
und zwar beim Colour Genie in 
den Farben, die vorher auf dem 
Bildschirm standen, und beim 
Video Genie einfach weiß. Nicht 
sehr aufregend, gewiß. Aber lassen 
Sie das Programm trotzdem noch 
einmal laufen und achten Sie 
darauf, wie lange es dauert, bis 
der Bildschirm ganz angemalt ist 
und der Computer sich wieder 
mit READY meldet. Am besten 
messen Sie die Zeit mit einer 
Stopuhr, wenn Sie so etwas 
haben. Und wenn Sie soweit 
sind, dann merken Sie sich die 
Zeit und löschen das Programm 
mit NEW 

Geben Sie dann folgendes Pro- 
gramm ein: 

Für das Colour Genie: 

1 RESTORE:FOR X=0 TO 14 

2 READ A:POKE &H4800+X, 
A:NEXT 

3 CLS:PRINT"Drücken Sie RE- 
TURN, wenn bereit'';: INPUT A 

4 CALL4800 

5 DATA 33,0,68,17,1,68,1,191, 


3.54.202.237.176.201.0. 0.0 
und für das Video Genie: 

1 RESTORE:FOR X=0 TO 14 

2 READ A:POKE 32512+X,A: 
NEXT 

3 CLS:PRINT"Drücken Sie NEW 
LINE, wenn fertig'';: INPUT A 

4 PO K E 1 6526 ,0 : PO K E 1 6527 ,127 
:A=USR(0) 

5 DATA 33,0,60,17,1,60,1,255, 

3.54.191.237.176.201.0. 0.0 
Achten Sie bei der Eingabe 

darauf, daß alle Zahlen ganz 
genau stimmen! Starten Sie dann 
das Programm mit RUN. 

Nehmen Sie Ihre Uhr und 

stoppen Sie die Zeit 

Na, sind Sie mitgekommen? 
Was Sie gerade gesehen haben, 
war die Geschwindigkeit von As- 
sembler (jetzt habe ich mich 
schon wieder verhaspelt: natür- 
lich Maschinensprache). 

Oh nein, nicht schon wieder 
der. Der Typ aus der letzten 
Reihe gehört zu den Leuten, 
die immer alles ganz genau wis- 
sen wollen. Das sind die schlimm- 
sten. Also gut, ich erklärs': 

Ich habe ja eben so viel von 
den Zahlen geredet, die für den 
Computer die Befehle darstellen. 
Diese Zahlen-Befehle stehen in 
Zeile 5. Das Basicprogramm, das 
wir hier eingegeben haben, hat 
nur die Aufgabe, diese Zahlen 
in den Speicher zu schreiben und 
das Maschinenprogramm (die 
Zahlen) aufzurufen. 

Klar? Durch dieses Programm 
haben wir uns diesmal noch den 
Assembler gespart. Aber nächstes 
Mal brauchen wir ihn, wenn 
Sie also noch keinen haben, 


dann besorgen Sie sich ganz 
schnell einen bei Ihrem Händ- 
ler, bis zur nächsten Ausgabe der 
Genie Data. 

In der nächsten Ausgabe werde 
ich das Geheimnis lüften, was die 
Zahlen bedeuten, und dann werde 
ich anfangen, Ihnen richtig As- 
sembler beizubringen. Aber bis 
dahin dürfen Sie im eigenen 
Saft schmoren und darüber brü- 
ten, wieso es beim zweiten Pro- 
gramm so schnell ging. 

Aber damit Ihnen die Zeit 
bis zur nächsten Ausgabe der 
Genie Data nicht zu lang wird, 
hier noch einige Fragen. Wenn 
Sie die nicht beantworten kön- 
nen, lesen Sie diesen Artikel 
noch einmal durch (Sie Armer), 
sooft bis Sie alle Anworten 
wissen. Und nicht mogeln - 
damit belügen Sie sich nur sel- 
ber! 

Also dann, bis zum nächsten 
Mal 

1. Nennen Sie den Hauptvorteil 
und -nachteil von Assembler. 

2. Welche Form von Befehlen 
versteht der Computer direkt? 

3. Wir haben ein Basicprogramm 
und Assemblerprogramm. Beide 
erfüllen dieselbe Aufgabe. Wel- 
ches verbraucht mehr Speicher- 
platz? 

4. Und welches ist schneller? 

5. In welcher Zeile (1-5) steht 
im zweiten Beispiel der Code 
(=die Befehle), die dafür ver- 
antwortlich sind, daß der Bild- 
schirm angemalt wird? 


Thomas M. Binzinger 



Wenn Sie ein gutes Programm für das 
COLOUR GENIE 

(Assembler oder complllert) 
geschrieben haben und daran Interessiert 
sind es zu verkaufen, dann schicken Sie es uns zu. 
Wir zahlen Spitzenpreise für die 
Copyrights an Spielen 
und Hilfsprogrammen. 


VERLAG FÜR COMPUTERTECHNIK, 5429 MARIENFELS 
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3D Körper 


Dieses Programm ist für das 
Colour Genie geschrieben. Es 
läuft sowohl auf der 16k-RAM 
als auch auf der 32k-RAM Ver- 
sion. 

Das Programm erkennt selbst- 
tätig wieviel Speicherplatz zur 
Verfügung steht und dimensio- 
niert die verwendeten Felder ent- 
sprechend. 

Das Programm selbst dürfte 
keine großen Probleme aufwer- 
fen. Die Umrechnungsroutine 3D- 
2D befindet sich in den Zeilen 
500-590. Vor jeder Umrechnung 
wird die BREAK-Taste ausge- 
pokt, dies gibt nur einen gering- 
fügigen Geschwindigkeitsvorteil 


und kann weggelassen werden. 

Die Steuerung des Programms 
erfolgt mit den Funktionstasten. 

Nach dem Starten des Pro- 
gramms und Eingabe der An- 
fangsparameter können die Dreh- 
ungen um die Raumachse und 
der Vergrößerungsfaktor mit den 
Tasten Fl -F8 gesteuert werden: 

Fl = Y-Achse +5 Grad 
F5 = Y-Achse -5 Grad 
F2 = Z— Achse +5 Grad 
F6 = Z— Achse —5 Grad 
F3 = X— Achse +5 Grad 
F7 = X— Achse —5 Grad 
F4 = Vergrößerung +1 
F8 = Vergrößerung —1 
Mit (SPACE) gelangen Sie in die 


Anfangseingabe. Mit (BREAK) 
wird das Programm abgebrochen. 

Noch eine Bemerkung über das 
Format in der die verschiedenen 
Drehungen ausgeführt werden: 

Eine negative Gradzahl bedeu- 
tet eine Drehung im Uhrzeiger- 
sinn. Um also einen Blickwin- 
kel von 45 Grad von oben zu 
bekommen tippt man bei der 
Anfangseingabe der X-Achse -45 
Grad ein. 

Wie das Definieren eigener 
Körper vor sich geht ist im Pro- 
gramm ausführlich beschrieben. 

Nun noch viel Spaß beim 
Ausprobieren des Programms. 

Uwe Schmidt 


ICO REN ************************ 


110 

REM 

*** 


*** 

120 

REM 

*** 


*** 

130 

REM 

*** 

3D - KOERPER 

*** 

140 

REM 

*** 


*** 

150 

REM 

*** 

Version 1.1 

*** 

160 

REM 

*** 


*** 

170 

REM 

*** 

(C) Juli 19B3 

*** 

180 

REM 

**# 


*** 

190 

REM 

*** 

by U. Schmidt 

*** 

200 

REM 

*** 


*** 

210 

REM 

*** 


*** 


220 REM ************************ 

230 REM 
240 REM 

250 CLS : FCLS: COLOUR 1 6 

260 A2=MEM: I F A2< 991 6THEND1«120ELSEIFA2>20000THEND 1=1500 
270 D1MA (Dl ) , B <D1 ) , C (Dl ) : G0SUB1200* CLS 
280 G0T0710 

290 PRINT* INPUT "ANZAHL DER PUNKTE " 5 W 
300 F0RY=0T0W-1*Z=3*Y+1 

310 PRINT : PRINT "P ( " ; Y; "> =*’* INPUT"X=" 5 E » INPUT"Y="; Fs INPUT"Z= M ;G 

320 A(l+Z)=E:A(2-*-Z)=F:A<3+Z)=G 

330 NEXT 

340 CLS 

350 GOT 0900 

360 PRINT* 3 NPUT" FARBE (2-4) " 5 T9* T9=INT (T9) 

370 IFT9<20RT9>4THEN360 
3 BO GOT 0950 

390 PRINT: INPUT "DREHPUNKT BEI X, Y, Z"?B,C,D 
400 G0T0990 

410 PRINT: INPUT "DREHWINKEL (Y-ACHSE) ";M 
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420 GOTO 1030 

430 PRINT: INPUT” DREHWINKEL (Z-ACHSE) “:H 
440 GOT Dl 070 

450 PRINT; INPUT- DREHWINKEL (X-ACHSE) “;I 
460 GOTOIUO 

470 PRINT: INPUT “MASSST AB ORIGINAL* " ; T 
480 POKE 16406. 82 
490 FGR 

500 F0RY=0T0W— 1: Z=3*Y+1 

510 N=A<1+Z)-B:0=*A(2+Z)-C:P=A(3+Z)-D 

520 J=N*COS <H*. 0174533) +0*SIN<H*. 0174533) : K=-N*SIN <H*. 0174533) +0*C 
OS (H*. 0174533) 

530 L=-J*SIN ( I * . 0174533) +P*C05 ( I*. 017453) : Q=K*COS <M*. 0174533) +L*SI 

N (M*. 0174533) : R=-K*SIN (M*. 0174533) +L*COS (M*. 0174533) : Q=Q*T: R=R*T 

540 B (Y) =Q: C ( Y) =R: NEXT : G0T0550 

550 FGR: FCLS: FC0L0URT9 

560 FORU=OTOW— 2 

570 ON ERROR GOT01160 

5B0 PLOTB (U) +80, 51 -C (U) TOB (U+l ) +80, 51-C (U+l ) 

590 NEXT 

600 P2=PEEK (8tHF80B) : P1=PEEK (&HF880) : IFPEEK<-1984) =4THENP0KE16406, 2 

27 : STOPELSE I FPEEK ( - 1 984 > = 1 2BTHENPDKE 16406, 227 : G0T0340 

610 I FP 1 = 1 THEN660 

620 IFP2=16THENM=M+5s GQT0490 

630 IFP2=32THENH=H+5:G0T0490 

640 IFP2=64THENI=I+5: GQT0490 

650 I FP2= 1 2BTHENT=T+ 1 : G0T0490 

660 I FP2= 16THENM=M-5: G0TQ490 

670 1 FP2=32THENH=H-5 : G0T0490 

680 3FP2=64THENI=I-5: G0T0490 

690 IFP2=12BTHENT=T— 1 : G0TD490 

700 G0TD600 

710 PRINT: PRINT-BEISPIEL ODER EIGENE FIGUR?": PRINT: PRINT" BEISPIEL 
A — QUADER": PRINT-BEISPIEL B — PYRAMIDE": PRINT" C — EIG 

ENE FIGUR": PRINT: PRINT" A,B ODER C ?"; 

720 At=INKEY*: IFA*= S " "THEN720 
730 IFA*="C"THENPRINT" C":G0T0290 
740 IFA*="A"TH£NPRINT" A":G0TD78O 
750 IFA$="B"THENPRINT" B M :G0T0840 
760 GOT 07 20 
770 RESTORE 

780 W=19:F0RY=0T0W~1:Z=3*Y+1 
790 READ E, F, G 

800 A ( 1+Z) =E: A (2+Z) =F: A <3+Z) — G 

810 NEXT VÄ ■{ 

820 GOT 0350 ,■«■!■ 

830 DATA 0,0, 0,2, 0,0, 2, 2, 0,2,2, 1,2,0, 1,0,0, 1 , 0, 0, 0, 0, 2, 0, 0, 2, 1,2,2 
, 1 , 2 , 2 , 0 , 0 , 2 , 0 , 0 , 2 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 2 , 0 , 0 , 2 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 1 
B40 FÜRL9=1 TO 19 : READD9, DB , D7 : NEXT i W= 1 0: F0RY<=0TDW- 1 : Z*3*Y+ 1 
850 READ E, F, G 

860 A ( 1+Z) =E: A (2+Z) =F : A <3+Z) — G 
870 NEXT 
880 GDT035O 

890 DATAO, 0,0, 4, 0,0, 4, 4, 0,0, 4, 0,0, 0,0, 2. 2, 4, 0,4, 0,4, 4, 0,2, 2, 4, 4,0, 
0 

900 LGR: CLS 

910 PRINT "FARBE AENDERN ( J/N) " 

920 A*= INKEY*: IFA*=""THEN920 

930 I FA*= " J " THEN360ELSEIF A*="N" THEN950 

940 G0T0920 
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950 PRINT: PRINT "DREHPUNKT AENDERN (J/N)" 

960 A*=INKEY$: IFA*=""THEN960 

970 I F A*= “ J " THEN390ELSE I F " N " THEN990 

9 BO G0TQ960 

990 PR INT SPRINT" DREHWINKEL Y AENDERN <J/N>" 

1000 A*=INKEY*s IFA«=" "THEN1000 

1010 I FA$= " J " THEN4 1 OELSE I F A*= " N " THEN 1 030 

1020 GOTO 1000 

1030 PRINT: PR INT "DREHWINKEL Z AENDERN (J/N)" 

1040 A$=INKEY$: IFA*=" "THEN1040 
1 050 IFA$=" J" THEN430ELSE I F A*= " N " THEN 1070 
1060 GOTO 1040 

1070 PR INT SPRINT "DREHWINKEL X AENDERN (J/N)" 

1000 A$=INKEY$: IFA$=" "THEN1080 

1090 I FA$=" J " THEN450ELSEI FA*= "N " THEN1 1 10 

1100 GOTO 1080 

1110 PR I NT : PR I NT " VERGROESSERUNG AENDERN ( J/N) " 

1 120 A$=INKEY*: IFA*=" "THEN1 120 
1 130 I F A‘*=" J " THEN47 OELSE I FA1»= " N " THEN 1 150 
1140 GOTO 1 120 
1150 G0T0490 

1 160 LGRs C0L0UR4: CLS: PRINTsPRlNT: PRINT: PRINT“ VERGROESSERUNGSF AKTOR 
ZU GROSS !!!!!!!!" 

1170 C0L0UR16: PRINT sPRINT :PRINT"ZUM WEITERMACHEN <SPACE> DRUECKEN 
! "sPQKE 16406, 227 

1180 A$=INKEY*: IFA*<>" "THEN1 180 
1190 RESUME 340 

1200 C0L0UR5: CLS: PRINTs PRINT“ DREI -DI MENS ION ALE GRAFIK 

M . 

1210* PRINTTAB (8) STRING* <24, "ü" ) . 

1220 C0L0UR16 

1230 PRINT: PRINT"MIT HILFE DIESES PROGRAMMES IST ES" : PRINT: PRINT"M 
OEGLICH DREI -DIMENSIONALE GRAFIK AUF" 

1240 PRINT: PRINT" DEM BILDSCHIRM DARZUSTELLEN, ZU PRINT: PRINT" VER 
GRDESSERN UND IN DEN DREI RAUMACHSEN" 

1250 PRINT: PRINT-ZU DREHEN. ": PRINT: PRINT"DIE DEFINITION EIGENER": P 
RINT: PR INT "GRAFIKEN GESCHIEHT WIE FOLGT : "sPRINT : PRINT: PRINT"WEITER 
MIT < SPACE > " 

1260 A*=INKEY*: IFA*<>" "THEN1260 

1270 CLS: PRINT"MAN ZEICHNET DIE FIGUR ZUERST AUF" : PRINT: PRINT"PAPI 
ER UND SCHREIBT DIE 3D— KOORD I N ATEN " 

12B0 PRINT: PR INT "ALLER LI NI EN-ECKPUNKTE AUF, SO DASS" : PRINT: PRINT" 
DIE FIGUR KOMPLETT DEFINIERT IST." 

1290 PRINT: PR INT "DAS FORMAT DER KOORDINATEN IST ": PRINT: PRINT "X . Y, 
Z WOBEI X=BREITE Y=TIEFE Z=HOEHE. " 

1300 PRINT: PRINT"DANN ZAEHLT MAN ALLE KOORDINATEN-TRIPEL" : PRINT: PR 
INT "UND SCHREIBT DIESE ZAHL EBENFALLS“ 

1310 PRINTs PRINT" AUF. "sPRINT: PRINT: PRINT"WEITER MIT <SPACE> " 

1320 A*=INKEY$: IFA*<>" "THEN1320 

1330 CLS: PR INT "DAS PROGRAMM FRAGT DIE DATEN DANN IM" : PRINT: PRINT"D 
1 ALQGBETRIEB AB." 

1340 C0L0UR4: PRINTs PRINT: PRINT" BEACHTE: :COLOUR16: PRINT" ES DUER 
FEN NUR MAX I MAL "D 1/3: PRINTTAB (10) "VERSCHIEDENE PUNKTE EINGE-":P 

RINTTAB (10) "GEBEN WERDEN ! ! ! " 

1350 G0SUB1390 

1360 PRINTsPRlNT: PR INT "BEGINNE MIT <RETURN>" 

1370 A*=INKEY*: IFA*< >CHR* ( 13) THEN1370 
13B0 RETURN 

1390 PRINT: PRINT "BEI NEUSTART DES PROGRAMMS STEHEN ALLE" : PRINT: PRI 
NT” PARAMETER AUF *0* !!" 

1400 RETURN 
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Ein-/Ausgabe 

Wer einige Zeit in Basic program- Cursor um eins nach rechts CALLPRINT2 

miert hat, erreicht irgendwann bewegt. Basic-Steuerzeichen wie Ausgabe des Textes ab der Adresse 
einmal die Grenzen der Möglich- z.B. Zeilenvorschub sind ebenfalls Text, Registerinhalte siehe 
keit mit dieser Sprache. Zum möglich. Verwendet wird die OUTHLD. 
einen ist das die begrenzte Ge- Farbe in 4023H, die Cursor- 5. OUTAH gibt den Akkumu- 
schwindigkeit, zum anderen viel- Position steht in 4020H und lator hexadezimal aus. Register- 
leicht, daß auf CPU-Register nicht 4021 H. Am Ende des Bildschirms inhalte bleiben erhalten, 
zugegriffen werden kann. Das wird automatisch nach oben ge- 6. OUTHLH gibt das HL-Re- 
Zauberwort für eine bessere Aus- rollt. gister hexadezimal aus, Register- 
nutzung des Computers ist die 05D9H inhalte bleiben erhalten. 

"Maschinensprache". Obwohl Ma- Inline ROM-Routine. Der Cursor 7. OUTHLD gibt das HL-Register 
schinensprache eigentlich auch wird eingeschaltet und B Zeichen dezimal aus, da die ROM-Rou- 
nicht so kompliziert ist (was man werden zur Eingabe freigegeben, tine fast alle Registerinhalte verän- 
denkt, wenn man Hex-Listings Das erste Zeichen wird in der dert, müssen die später noch be- 
ansieht), gibt es für den An- Speicherzelle abgelegt, auf die nötigten durch PUSH vor der 
fänger einige Probleme. Register- HL zeigt, das nächste in HL+1 Anwendung gesichert, und 
inhalte oder Texte auf dem usw. Rücksprung erfolgt durch mit POP zurückgeschrieben wer- 
Bildschirm auszugeben erfordert RETURN oder BREAK. Der den. 

nämlich schon eigene Programme Cursor wird wieder ausgeschaltet, 8. INPHLD Eingabe einer max. 

und diese meistens die Kenntnis und B enthält die Anzahl der ein- 5-stelligen Dezimalzahl in das 

von ROM-Routinen. Die folgen- gegebenen Zeichen. Bei BREAK HL-Register. 

den neun kleinen Programme ist außerdem das C-Flag gesetzt. 9. INPHLH Eingabe einer max. 

dienen dazu, dem Anfänger etwas OFAFH 4-stelligen Hexadezimalzahl in das 

über diese Schwierigkeiten hin- gibt das HL-Register dezimal auf HL Register. 

wegzuhelfen. Sie können ohne dem Bildschirm aus. Diese Rou- ANWENDUNGSBEISPIEL 

Änderung übernommen werden tine wird normalerweise für Basic- Verwendete Programme: 

und laufen z.B. auf dem TCS Zeilennummern verwendet. PRINT1 , INPHLH, OUTHLD 

COLOUR ASSEMBLER. Um sie • 28A7H START 

jedoch nicht stumpfsinnig an- ROM-Textausgabe. Gibt das CALL 01 C9H;Bildschirm löschen 

wenden zu müssen, sind die ASCII-Zeichen aus, auf das HL LD A,10D; Farbe hellgelb 

Programme ausführlich dokumen- zeigt, erhöht HL und gibt das LD (4023H),A 

tiert, und wer elementare Kennt- nächste Zeichen aus; bis zu' einem WEITER 

nisse in der Maschinensprachen- Anführungszeichen oder 0. CALL PRINT1 

Programmierung besitzt, wird Beschreibung der Programme DE FM "Hexadezimalzahl:" 

keine Verständigungsschwierig- 1. GETCHR wie ROM-Routine NOP 

keiten haben. Relative Sprünge 002BH, Registerinhalte werden CALL INPHLH 

sind immer mit dem $ -Zeichen jedoch nicht verändert. CALL PRINT1 

durchgeführt, was zusätzliche 2. OUTCHR wie ROM-Routine DEFM "Dezimaläquivalent:" 

Symbole überflüssig macht. Zum 0033H, Registerinhalte bleiben NOP 

Verständnis seien jetzt nur noch erhalten. CALL OUTHLD 

die fünf verwendeten ROM-Rou- 3.PRINT1 Format: JR WEITER 

tinen angegeben: CALL PRINT END START 

002BH DEFM "TEXT" Das Programm erfragt nach dem 

liest ein ASCII-Zeichen von der DEFB 0 Starten durch NAME/TM/NS eine 

Tastatur in den Akkumulator, Ausgabe des Textes "TEXT", Hexadezimalzahl und gibt dann 

wenn keine Taste gedrückt ist Programmfortsetzung nach diese Zahl dezimal aus. Es bildet 

enthält er 0. DEFB 0 (oder NOP). Register- sich das Gegenstück zu dem Hand- 

0033H inhalte bleiben erhalten. buch des COLOUR ASSEMB- 

sämtliche Bildschirmausgaben soll- 4. PRINT2 Format: LERS angegebenen DEZ/HEX 

ten über diese Routine ablaufen. TEXT DEFM "TEXT" Umwandlungsprogramm. 

Es wird das ASCII-Zeichen im DEFB 0 

Akkumulator ausgegeben und der LD HL, TEXT Jan Hemming 
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SO FTWAR E 


GETCHR 

RUSH 

DE 

notwendige Registerinhalte 


PUSH 

IY 

retten 


CALL 

002BH 

siehe Routinenbeschreibung 


POP 

IY 

wiederherstellen 


POP 

DE 



RET 



OUTCHR 

PUSH 

DE 

DE und IY werden verändert 


PUSH 

IY 



CALL 

0033H 

siehe Routinenbeschreibung 


POP 

IY 



POP 

DE 



RET 



PRINT1 

EX 

(SP), HL 

rette HL und hole Adr. des ersten Zeichens 


PUSH 

AF 

Akkuinhalt retten 

NOTNUL 

LD 

A, (HL) 

Zeichen in Akku 


INC 

HL 

Zeige auf nächstes Zeichen 


AND 

A 

A = 0 ? 


JR 

Z , $+7 

(RETURN) ja 


CALL 

OUTCHR 

Ausgabe des ASC I I-Zeichens 


JR 

$-8 

(NOTNUL) Wiederholung 

RETURN 

POP 

AF 

Akku und Flags wiederherstellen 


EX 

(SP), HL 

HL wiederherstellen 


RET 


Rücksprung auf 1. Befehl nach dem String 

PRINT2 

EQU 

28A7H 

Verwendung der ROM-Routine 

OUTAH 

PUSH 

AF 

Akkuinhalt zweimal. 


PUSH 

AF 

sichern 


RRCA 


Vertausche obere vier 


RRCA 


Bits mit unteren 


RRCA 


ABCDEFGH=EFGHABCD 


RRCA 




CALL 

$4-9 

( OÖTNIB ) untere vier Bits ausgeben 


POP 

AF 

Ehemalige untere vier Bits wiederherstellen 


CALL 

$4-5 

(OUTNIB) ausgeben 


POP 

AF 

alten Akkuinhalt zurückschreiben 


RET 


Rücksprung 

OUTNIB 

AND 

0FH 

lösche obere 4 Bits 


ADD 

A , 90H 

Gleiche Akku so ab, daß 


DAA 


Akkunihalt=ASCII-Code 


ADC 

A , 40H 



DAA 

! 



CALL 

OUTCHR 

ASCI I-Zeichen ausgeben. 


RET 



OUTHLH 

PUSH 

AF 

Akkuinhalt sichern 


LD 

A , H 

MSB in Akku laden 


CALL 

OUTAH 

und ausgeben 


LD 

A » L 

LSB IN Akku laden 


CALL 

OUTAH 

und ausgeben 


POP 

AF 

Akkuinhalt wiederherstellen 


RET 



OUTHLD 

EQU 

0FAFH 

Verwendung der ROM-Routine 

INP-HLD 

PUSH 

AF 

Registerinhalte 


PUSH 

BC 

von AF, BC und DE 


PUSH 

DE 

sichern 


LD 

B , 5 

Eingabe von max. 5 Zeichen, die ab 
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LD 

CALL 

JP 

EX 

LD 

NEXT LD 
CP 
JR 
CP 
JR 
SUB 
PUSH 
POP 
ADD 
ADD 
ADD 
ADD 
LD 
LD 
ADD 
INC 
JR 

READY POP 
POP 
POP 
RET 


HL , RESERV ; HL abgelegt werden 

05D9H ;siehe Routinenbeschreibung 

C , 0066H ; bei BREAK Rück?prung ins BASIC 


DE, HL 
HL , 0 

A. (DE) 
30H 

C , $+21 
3AH 

NC, $+17 
30H 
HL 
BC 

HL, HL 
HL, HL 
HL , BC 
HL, HL 
C, A 

B , 0 


DE zeigt auf erstes Zeichen 
HL löschen 

Zeichen in Akku holen 
kleiner als ASCII Code von 0 ? 
(READY) ja 

größer als ASCII Code von 9 ? 

(READY) ja 

ASCII Code in Binärzahl umwandeln 
lade BC mit dem alten Inhal-tL-- von HL 

HL =HL*2 

Gesamtpi-ozedur HL=HL*10D 


BC mit errechneter Binärzahl laden 


HL , BC 
DE 

$-22 

DE 

BC 

AF 


und zu HL addieren 

zeige auf nächstes Zeichen 

(NEXT) Wiederholung 

Registerinhalte 

wiederherstellen 


INPHLH PUSH 
PUSH 
PUSH 

INPHLH+3 LD 
LD 

CALL 

JP 

EX 

LD 

NEXT LD 
SUB 
JR 
CP 
JR 
CP 
JR 
CP 
JR 
SUB 

ENDE PUSH 
LD 
LD 
ADD 
ADD 
ADD 
ADD 
ADD 
POP 
INC 
DJNZ 

POP 

POP 


AF ; Registerinhalte 

BC ;von AF , BC und DE 

DE {sichern 

B, 4 {Eingabe von 4 Zeichen, die ab 
HL , RESERV ; HL abgelegt «/erden 

05B9H ;siehe Routinenbeschreibung 

C , 0066H ;bei BREAK Rücksprung ins BASIC 
DE, HL ;DE zeigt auf erstes Zeichen 

HL , 0 ; HL löschen 

A,(DE) {Zeichencode in Akku 

30H {Code muß mindesten 30H groß sein, 

C , $ + 2 3 ; ( REDO ) C-Flag gesetzt 

0AH {kleiner als 10D ? 

C , $+1 2 {(ENDE) ja 
17 :kleine als 17 ? 


C , $+25 
23 

NC, $+21 
7 

BC 

B , 0 


(REDO) ja 
größer als 22 ? 

(REDO) ja 

Umrechnung für ABCDEF 
B ist Schleifenzähler 
BC mit errechneter Zahl laden 


sonst 


C , A 
HL, HL 
HL, HL 
HL ,HL 
HL, HL 
HL , BC 
BC 
DE 

$-30 

DE 

BC 


HL=HL*2 


HL mit 16 multiplizieren 
und Ergebnis dazuzählen 
Schleifenzähler wiederher stellen 
zeige auf nächstes Zeichen 
(NEXT) sooft «/iederholen, wie Zedchen 
eingegeben worden sind 
Registerinhalte wiederherstellen 
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POP 

RET 

AF 

REDO' 

CALL 

PRINT1 ;Text ausgeben 


DEFM 

NOP 

"Redo from start:" 


JR 

INPHLH >3 ;neue Eingabe 

RESERV 

DEFS 

5 


Laufschrift 


Laufschrift ist ein Programm für 
den TRS 80/ Video Genie mit 16 
oder mehr KBYTE RAM. Man 
kann damit Texte in ca. 2,5 cm 
großen Lettern über den Bild- 
schirm laufen lassen und zwischen- 
durch Sonderfunktionen, wie z. B. 
Blinken der auf dem Bildschirm 
befindlichen Schrift oder hin und 
her wandern einzelner Buchsta- 
ben, durchführen. 

Es ist eine Tonroutine einge- 
baut, durch die passende Töne 
hörbar werden. Sie wird in eine 
Stringvariable (a{0)) gepackt, die 
nicht verändert werden darf. 


Wenn man das Programm star- 
tet, erscheint zunächst ein Text, 
durch den die verschiedenen Mög- 
lichkeiten des Programmes klar 
werden. Hat man genug gesehen, 
so drückt man SPACE, wodurch 
man in den Texteingabe-Modus ge- 
langt. Hier wird immer der Teil 
der Nachricht angezeigt, der beim 
Laufenlassen der Schrift auf dem 
Bildschirm zu sehen wäre, sodaß 
man die Sonderfunktionen ent- 
sprechend eingeben kann. 

Möchte man nun eine Sonder- 
funktion in Anspruch nehmen, 
drückt man den linken Pfeil. Nun 


erscheint ein Menue, aus dem man 
sich etwas aussuchen kann (D be- 
deutet, daß keine Sonderfunktion 
benutzt wird). Danach wird man 
nach der Anzahl der Wiederho- 
lungen gefragt (ausser natürlich bei 
D), die man ebenfalls angeben 
sollte. Ist man fertig mit der Text- 
eingabe, drückt man NEW LINE, 
um sich die eingegebene Textfol- 
ge zeigen zu lassen. 

Und nun viel Spaß beim LAUF- 
SCHRIFTEN. 


Jörg Tegeder 


100 REM ********************************************** 


200 

REM 

*** 

L A U F S C 

H R 

I F T 

*** 

300 

REM 

*** 

MEM-SIZE 

= 

32760 

*** 

400 

REM 

*** 

Copyright 

(C) 

1983 

*** 

500 

REM 

*** 

Joerg 

Tegeder 

*** 

600 

REM 

*** 




*** 

700 

REM 

*** 



* 

*** 

800 

REM 

*** 

Telefon: 02247 - 

4147 

*** 


900 REM ********************************************** 

1000 CLS 

1100 PRINT § 461, "Bitte gedulden Sie sich einen Moment ! " s 

1200 CLEAR 4000 

1250 POKE 16405,0 

1400 DEFSTR A 

1500 DIM A(IOO), B ( 1 10, 3) 

1600 A (0) ”“012345678901234567890123456" * 27 Zeichen fuer spaetere Tonrou 
tine ! 

1700 B»PEEK(VARPTR(A<0> > +1 ) +PEEK < VARPTR <A (0) >+2>*256 

1800 FOR C=B TO B+26 

1900 READ D 

2000 E»E+D 

2100 POKE C, D 

2200 NEXT C 

2300 IF E03521 THEN PRINT "Daten falsch eingegeben STDP 

2400 IF PEEKt 16396) 0201 THEN POKE 23316, B-256* INT <B/256) s POKE 23317, 
INT (B/256) ELSE POKE 16526, B-256* INT (B/256) : POKE 16527, INT(B/256) 
2500 B=USR<0> 

2600 FOR B*32 TO 95 
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2700 FÜR C=1 TO 3 

2800 READ D 

2900 A (B) =A (B) +CHR* CD) 

3000 NEXT C 

3100 A(B)=A(B)+CHR*(26)+STRINGi*(3, 24) 

3200 FÜR C=1 TO 3 

3300 READ D 

3400 A(B>=A(B)+CHR$(D) 

3500 NEXT C 

3600 D=USR < I NT ( RND ( O ) *50001+1000) 

3700 NEXT B 
3800 CLS 

3900 A(l)=" LAUFSCHRIFT" +CHR* (O) +CHR* (B >+"... COPYRIGHT (C) " +CHR* ( 1 ) +CH 
R*(2)+” 1983 BY...JOERG TEGEDER. .. KEPLERSTRASSE 5... 5206 NEUNKIRCHEN - 
S. 1. . .< SPACE >" +CHR* <1)+CHR*(3)+" ZUM UNTERBRECHEN DRUECKEN. . . BEIM TEXT 
EINGEBEN +CHR$(94) 

4000 A ( 1 ) =A ( 1 ) + " ’ FUER SONDERFUNKTIONEN DRUECKEN 1 " +CHR$ (2) +CHR* (40) 
4100 A(3)=STRING*(LEN(A(1) ) , 32) 

4200 GOSUB 14200 

4300 E=PEEK (VARPTR (A (3) ) +1 ) +PEEK (VARPTR (A (3) ) +2) *256 
4400 FOR C=D TO D+LEN (A ( 1 ) ) -1 
4500 POKE E, PEEK(C) 

4600 E=E+1 
4700 NEXT C 

4800 A ( 1 ) =A < 1 ) +STR1NG* (28, 32) 

4900 FOR B=0 TO 12 
5000 FOR C=1 TO 20 

5100 IF PEEK ( 14400) =128 THEN C«2Q: NEXT Cs GOTO 14400 
5200 NEXT C 
5300 GOSUB 14200 

5400 IF PEEK ( D+B) =0 THEN D1=PEEK (D+B+l > : GOSUB 12100s GOSUB 14200s ST=D 
+Bs EN=D+PEEK ( VARPTR (A(l)) )-3s POKE VARPTR ( A ( 1 )) , PEEK (VARPTR (A ( 1 >>) -2: 
GOSUB 13700s GOTO 5300 

5500 IF PEEK (D+B) =1 THEN D1=PEEK (D+B+l ) s GOSUB 8300s GOSUB 14200s ST=D+ 
B: EN=D+PEEK (VARPTR (A ( 1 ) ) ) —3s POKE VARPTR (A ( 1 )) , PEEK (VARPTR (A ( 1 ))) -2s 
GOSUB 13700: GOTO 5300 

5600 IF PEEK (D+B) =2 THEN D1=PEEK (D+B+l ) : GOSUB 11700: GOSUB 14200: ST=D 
+B: EN=D+PEEK (VARPTR (A ( 1 ) ) ) -3: POKE VARPTR ( A ( 1 )) , PEEK (VARPTR (A ( 1 ))) -2: 
GOSUB 13700: GOTO 5300 
5700 FOR C=568-B*4 TO 568 STEP 4 
5800 PRINT % C, A ( PEEK ( D ) ) ; 

5900 D=D+1 
6000 NEXT C 
6100 NEXT B 
6200 B=1 

6300 FOR C=1 TO 10 

6400 IF PEEK ( 14400) =128 THEN C=10: NEXT C: GOTO 14400 
6500 NEXT C 
6600 GOSUB 14200 

6700 IF PEEK < D+B+ 12) =0 THEN D1=PEEK (D+B+13) s GOSUB 12100s GOSUB 14200: 
ST=D+B+12: EN=D+PEEK (VARPTR (A ( 1 ))) -3s POKE VARPTR (A ( 1 )) , PEEK (VARPTR (A ( 
1 ) > ) -2: GOSUB 13700s GOTO 6600 

6800 IF PEEK (D+B+12) =1 THEN D1=PEEK (D+B+13) s GOSUB 8300: GOSUB 14200s S 
T=D+B+12: EN=D+PEEK ( VARPTR ( A ( 1 ) > ) -3 s POKE VARPTR (A ( 1 )) , PEEK (VARPTR (A ( 1 
) ) ) —2 : GOSUB 13700: GOTO 6600 

6900 IF PEEK ( D+B-*- 1 2 > =2 THEN D1=PEEK (D+B+13) s GOSUB 11700: GOSUB 14200: 
ST=D+B+12: EN=D+PEEK (VARPTR (A ( 1 ))) -3: PDKE VARPTR (A ( 1 )) , PEEK (VARPTR ( A ( 
1 ) ) ) -2s GOSUB 13700: GOTO 6600 
7000 FOR C=516 TO 571 STEP 4 
7100 PRINT § C, A (PEEK (D+B— 1 ) ) s 
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7200 D=D+1 
7300 NEXT C 

7400 IF EKLEN <A(1)) -14 THEN B=B+ls GOTO 6300 
7500 A(1)=STRING*(L£N(A(3) > , 32) 

7600 GOSUB 14200 

7700 E=PEEK ( VARPTR ( A ( 3 ) ) +1 ) +PEEK ( VARPTR (A (3) ) +2) *256 
7800 FOR C=D TO D+LEN(A(3>> 

7900 POKE C, PEEK(E) 

8000 E=E+1 
9100 NEXT C 
8200 GOTO 4800 
8300 E1=0 
8400 E=3 

8500 FOR C=516 TO 572 STEP 4 
8600 E=E+ 1 
8700 A ( E ) = " " 

8800 FOR CI = O TD 2 

8900 A (E) =A <E) +CHR* (PEEK (CI +C+ 15360) ) 

9000 NEXT CI 

9100 A(E)=A(E)+CHR* (26) +STRING* (3, 24) 

9200 FOR CI =64 TO 66 

9300 A (E) =A <E ) +CHR* (PEEK (CI +C+15360) ) 

9400 NEXT CI 
9500 El =E 1+100 
9600 F=USR (El ) 

9700 NEXT C 

9800 FOR G=1 TO Dl 

9900 E=3 

lOOOO FOR C=516 TO 572 STEP 4 
10100 E=E+1 
10200 CLS 

10300 PRINT § C, A (E) ; 

10400 FDR F=1 TO 10 
10500 NEXT F 

10600 Z=USR(G*256+C) - ' • - 

10700 NEXT C 

10800 FOR C=572 TO 516 STEP -4 
10900 PRINT § C, A (E) ; 

11000 FOR F=1 TO 10 
11100 NEXT F 
11200 E=E-1 
11300 Z=USR(G *256+0 

11400 IF 6<Di THEN CLS: NEXT C ELSE NEXT C 

11500 NEXT G 

11600 RETURN 

11700 FOR E=1 TO Dl 

11800 F=USR(E*256) 

11900 NEXT E 
12000 RETURN 

12100 A(2)=STRING*(128, 32) 

1 2200 C=PEEK ( VARPTR ( A (2) ) +1 ) +PEEK ( VARPTR ( A (2) ) +2) *256 

12300 F=15B72 

12400 FOR E=C TO C+127 

12500 POKE E, PEEK(F) 

12600 F=F+1 

12700 IF RND (O) >.5 THEN Z=USR (2000+RND (255) ) : NEXT E ELSE NEXT E 
12800 FOR E= 1 TO Dl 
12900 CLS 

1 3000 C=USR (2000+RND ( 255 ) ) 

13100 FOR C=1 TO 30 
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13200 NEXT C 

13300 PRINT f 512, ft (2): 

13400 FOR C»1 TO 30 
13500 NEXT C. E 
13600 RETURN 

13700 FDP C=ST TO EN STEP 2 
13800 PDKE C, PEEKCC+2) 

13900 POKE Ol. PEEK ( C+3) 

14000 NEXT C 
14100 RETURN 

1 4200 D=PEEK (VARPTR < A < 1 > ) + 1 > +256 «PEEK ( VARF'TR ( A d ) ) +2) 

14300 RETURN 
14400 POKE 16405. 1 
14500 CLS 
14600 Ad)»" " 

14700 ZA=0 
14800 A= INKEY * 

14900 PRINT i 17, "Bitte geben Sie den Text ein !"; 

15000 PRINT i 343, CHR* ( 1 56 ) STR I NG* (14, 1 40) CHR* ( 188) ; 

15100 PRINT § 471, STRING* d6, 131); 

15200 A (2) »CHR* < 143) 

15300 FOR B=1 TO 5 
15400 GOSUB 16500 
15500 A= INKEY* 

15600 IF AO M " AND AOCHR*^l3> THEN GOSUB 16700 ELSE IF A<>" " THEN B=5; 

NEXT B; GDTO 19900 ' « 

15700 NEXT B ' ' 

15800 A(2)»CHR*( IBS) 

15900 FOR B=1 TO 5 ■ ! T 

16000 GOSUB 16500 
16100 A= INKEY* 

16200 IF A< > “ " AND AOCHR*<13) THEN GOSUB 16700 ELSE IF TUEN B=5: 

NEXT B: GOTO 19900 
16300 NEXT B 
16400 GOTO 15200 

16500 PRINT § 407, CHR* (1 49) R IGHT* ( A < 1 ) , 1 4) A (2) STRING* ( 14— LEN (RIGHT* (A 
d), 14>>, 32); 

16600 RETURN 

16700 PRINT § 430, STRING* <14, 32); 

16800 IF A=CHR* (8) THEN IF LEN<Ad))=Ö THEN RETURN ELSE IF LEN < A d ) ) =B ( 
ZA, 1) THEN ZA=ZA— 1 ELSE A <1 ) »LEFT* < A < 1 ) , PEEK < VARPTR <A (1 ) ) ) -1 ) 

16900 IF LEN (A<1 ) )+ZA*2>219 THEN PRINT § 430, "Text zu lang ‘ : RETURN 

17000 IF A=CHR*(9) THEN GOSUB 17400: RETURN 

17100 IF ASC ( A) <32 OR ASC (A) >90 THEN RETURN 

17200 A(l) =A ( 1 ) +A 

17300 RETURN 

17400 PRINT i 591, "S ONDERFUNKT IONEN:”; 

17500 PRINT § 657,"A Blinkende Anzeige"; 

17600 PRINT § 721, "B Wandernde Buchstaben"; 

17700 PRINT § 785, "C Tonfolge"; 

17800 PRINT § 849, "D Aussteigen"; 

17900 A= INKEY* 

18000 IF A=" " THEN 17900 

18100 IF ASC ( A) <65 OR ASC <A) >68 THEN GOTO 17900 

18200 PRINT § 591, STRING*d28, 32) STRING* <128, 32) STRING* <64, 32); 
18300 IF A="D" THEN RETURN 
1B400 ZA=ZA+1 

18500 B (ZA, 1 ) »PEEK (VARPTR < A d ) ) ) 

1B6O0 B ( ZA, 2) »ASC (A) -65 
18700 A (3) " 
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18800 PRINT I 912, "Anzahl der Wiederhol ungen ->" A (3) STRING* (4, 32) j 
18900 A- INKEY* 

19000 IF A-'"' THEN 1B800 

19100 IF A»CHR*(13) THEN GOTO 19600 

19200 IF A»CHR*(8) THEN IF LEN(A(3))>0 THEN A (3) =LEFT* ( A (3) , PEEKCVARPT 
R(A(3>>)-1> 

19300 IF ABC (AX48 OR ASC(A)>57 THEN GOTO 1B800 
19400 IF PEEK ( VARPTR (A(3)))<3 THEN A(3)=A(3)+A 
19500 GOTO 18800 

19600 PRINT $ 912, STRING*(64, 32); 

19700 B (ZA, 3)= VAL (A(3) ) 

19800 RETURN 

19900 IF ZA>0 THEN FOR B=ZA TO 1 STEP -ls A(l) =LEFT * ( A ( 1 ) , B (Et, 1))+CHR 
*(B(B, 2) ) +CHR* (B (B, 3) ) +RIGHT* (A( 1 ) , PEEK (VARPTR (A < 1 ))) -B (B, l))t NEXT 
B 

2 CO 00 POKE 16405, O 
20100 CLSi GOTO 4100 

20200 DATA 205, 127, 10, 77, 68, 62, 1, 105, 211, 255, 45, 32, 253, 60, 
105, 211, 255, 45, 32, 253, 13, 16, 238, 175, 211, 255, 201* Daten fuer 
Tanr outine. 

20300 * Es folgen Daten fuer GROBSBUCHSTABEN. 

20400 DATA 


128, 

128, 

128, 

128, 

128, 

128, 







128, 

148, 

12B, 

128, 

145, 

128, 

1 21000 DATA 




168, 

168, 

128, 

12B, 

128, 

12B, 

152, 

140, 

144, 

151, 

131, 

149, 

184, 

184, 

144, 

174, 

174, 

132, 

156, 

140, 

144, 

183, 

179, 

132, 

152, 

156, 

132, 

178, 

183, 

132 

156, 

140, 

132, 

181, 

176, 

144, 

20500 

DATA 




156, 

140, 

144, 

181, 

176, 

133, 

140, 

160, 

132, 

152, 

161, 

144, 

156, 

140, 

132, 

183, 

177, 

144 

152, 

164, 

128, 

166, 

179, 

166, 

21100 DATA 




136, 

148, 

128, 

128, 

128, 

128, 

156, 

140, 

132, 

151, 

129, 

128, 

12B, 

160, 

132, 

12B, 

137, 

144, 

156, 

140, 

132, 

181, 

179, 

149, 

164, 

12B, 

128, 

152, 

129, 

128 

148, 

12B, 

148, 

151, 

131, 

149, 

20600 DATA 




140, 

156, 

132, 

176, 

181, 

144, 

176, 

160, 

144, 

140, 

137, 

132, 

128, 

128, 

148, 

180, 

176, 

149 

128, 

144, 

128, 

131, 

135, 

129, 

21200 DATA 




128, 

128, 

128, 

160, 

148, 

12B, 

148, 

160, 

132, 

151, 

137, 

144, 

128, 

128, 

128, 

131, 

131, 

129, 

148, 

12B, 

128, 

181, 

176, 

144, 

128, 

128, 

128, 

160, 

144, 

128, 

180, 

160, 

148, 

149, 

129, 

149, 

128, 

160, 

132, 

152, 

129, 

128 

180, 

128, 

148, 

149, 

137, 

149, 

20700 DATA 




152, 

140, 

144, 

165, 

176, 

133 

152, 

172, 

144, 

173, 

177, 

133, 

21300 DATA 




152, 

148, 

128, 

176, 

181, 

144, 

156, 

140, 

148, 

151, 

131, 

129, 

152, 

140, 

144, 

184, 

179, 

144, 

152, 

140, 

144, 

165, 

152, 

145, 

140, 

140, 

148, 

176, 

179, 

1*9, 

156, 

140, 

148, 

151, 

175, 

145, 

148, 

160, 

128, 

131, 

171, 

129 

152, 

140, 

132, 

178, 

179, 

132, 

20800 DATA 




140, 

156, 

132, 

128, 

149, 

12B 

156, 

140, 

132, 

179, 

179, 

132, 

21400 

DATA 




152, 

140, 

132, 

167, 

179, 

132, 

148, 

128, 

148, 

181, 

176, 

149, 

140, 

172, 

148, 

184, 

135, 

128, 

14B, 

128, 

148, 

138, 

154, 

128, 

156, 

140, 

148, 

183, 

179, 

149 , 

14B, 

128, 

148, 

157, 

137, 

149, 

152, 

140, 

144, 

178, 

179, 

133 

164, 

160, 

132, 

152, 

137, 

144, 

20900 DATA 




164, 

160, 

132, 

128, 

149, 

128, 

160, 

144, 

128, 

136, 

132, 

128, 

140, 

172, 

132, 

184, 

177, 

144 

160, 

144, 

128, 

160, 

148, 

12B, 

21500 

DATA 




160, 

152, 

132, 

137, 

164, 

144, 

160, 

180, 

128, 

129, 

149, 

129, 

176, 

176, 

144, 

140, 

140, 

132, 

128, 

148, 

128, 

137, 

157, 

129, 

140, 

176, 

128, 

176, 

140, 

129, 

160, 

132, 

128, 

139, 

147, 

129, 

152, 

140, 

144, 

128, 

179, 

128, 

128, 

164, 

128, 

131, 

155, 

129, 

160, 

176, 

128, 

165, 

185, 

145 

128, 

128, 

128, 

176, 

176, 

144 
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Für alle diejenigen, die die in 
der GENIE DATA veröffentlichten 
Maschinenprogramme eingeben 
wollten, aber nicht wußten, wie 
sie dies tun sollten, ist der kleine 
Monitor "MINIMON" die geeig- 
nete Hilfe. 

Der Monitor umfaßt etwa 730 
Bytes, und wird durch das Basic- 
Programm (Siehe Listing) in den 
Bereich 7B00H bis 7DDBH ge- 
poked. Der Entry-Point, das ist 
die Adresse, bei der der Moni- 
tor "MINIMON" gestartet wird, 
liegt bei 7B66H (bzw. 31590). 

Die Bedienung ist denkbar 
einfach. Als erstes muß das 
abgebildete Basic-Programm einge- 
geben werden. Hierbei sollte man 
sich nicht von den umfangreichen 
DATA Zeilen abschrecken lassen. 
Das Programm ist so aufgebaut, 
daß es, bevor es die DATA- 
Werte in den Speicher poked, 
auf ihre Richtigkeit prüft. Trotz- 
dem sollte man das Basic-Pro- 
gramm zur Sicherheit auf Band 
nehmen. 

Hat man das Basic-Programm 
eingegeben und auf Band auf- 
genommen, wird es mit RUN 
gestartet. Jetzt heißt es warten. 
Wurde in den DATA-Zeilen ein 
Fehler eingegeben, so meldet 
der Computer einen ERROR 
und gibt die entsprechende Zeilen- 
nummer aus. Sie muß korri- 
giert und das Programm erneut 
gestartet werden. 

Sind alle Eingaben allerdings 
fehlerfrei, so meldet sich der 
eigentliche Monitor "MINIMON". 
Es ist soweit, und die Reise in 
die Welt der Maschinenprogramme 
kann beginnen. 

Der Monitor "MINIMON" 
kennt insgesamt 10 Befehle. 
Sicherlich sind dies nicht umwer- 
fend viele, aber genügend, um die 
ersten Schritte in der Maschinen- 
programmierung zu wagen. Wem 
der Befehlssatz nicht ausreicht, 


kann den Monitor nach Belieben 
vergrößern. 

Befehle des Monitors 
"MINIMON" 

D XXXX 

Der Speicherbereich ab der Adres- 
se XXXX wird im Hex-Format 
ausgegeben. In der vordersten 
Spalte steht die Adresse, dann 
der Speicherinhalt der folgenden 
16 Bytes. Bei Drücken einer 
Taste wird die nächste Zeile 
ausgegeben. 

A XXXX 

Der Speicherbereich ab der Adres- 
se XXXX wird im ASCII-Forrnat 
ausgegeben. In der vordersten 
Spalte steht die Adresse, dann 
der Speicherinhalt der folgen- 
den 48 Bytes. Bei Drücken einer 
Taste wird die nächste Zeile aus- 
gegeben. 

I XXXX 

In die Speicherzelle XXXX kann 
ein Hex-Wert geschrieben wer- 
den. Der zum Speicherplatz ge- 
hörende Inhalt wird dargestellt. 

T XXXX 

In der Speicherzelle XXXX kann 
ein beliebiges ASCII-Zeichen 
(Eingabe über die Tastatur) ein- 
gegeben werden. Der zum Spei- 
cherplatz gehörende Inhalt wird 
im Hex- und ASCII-Forrnat dar- 
gestellt. 

J XXXX 

Mit dem J-Befehl kann ein Ma- 
schinenprogramm an der Adresse 
XXXX gestartet werden. Alle 
Registerinhalte gehen verloren. 
Ein Rücksprung zum Monitor 
"MINIMON" kann mit einem 
RET (Return) erfolgen. 

L 

Ein Maschinenprogramm kann in 
den Computer eingeladen wer- 
den. Es muß jedoch darauf ge- 
achtet werden, daß das einzu- 
ladene Programm nicht den 
Monitor "MINIMON" über- 
schreibt, und ihn somit zerstört. 
Während des Ladevorgangs wer- 


den Programm-Name und Entry- 
Point angezeigt. Tritt ein Lade- 
fehler auf, so wird ein ERROR 
ausgegeben und der Ladevorgang 
muß wiederholt werden. Evtl, 
sollte die Lautstärke am Casset- 
tenrecorder kontrolliert werden. 

C 

Funktion wie der L-Befehl, nur 
wird das Programm nicht im 
Speicher abgelegt. Dieser Befehl 
wird zum Überprüfen eines Tapes 
verwendet. 

WXXXXVYYY ZZZZ 
Ein Maschinenprogemm, welches 
im Speicherbereich XXXX bis 
YYYY liegt, wird auf Band 
aufgenommen. ZZZZ gibt den 
Entry-Point an. Nach der Auf- 
nahme sollte das Band mit dem 
C-Befehl überprüft werden. 

U XXXX 

Die Hex-Zahl XXXX wird in eine 
Dezimal-Zahl umgewandelt. 

B 

Mit B kann in den Basic-Bereich 
zurückgesprungen werden. 

Die einzelnen Befehle werden 
durch Drücken der entsprechen- 
den Buchstabentaste und anschlies- 
send der 'ENTER'-Taste aufge- 
rufen. Die Werte für XXXX, 
YYYY oder ZZZZ können dann 
im Hex-Format eingegeben wer- 
den. Alle Befehle können mit 
'BREAK' abgebrochen werden. 

Jetzt gleich eine erste An- 
wendung des Monitors: 

Er soll sich als SYSTEM-Tape auf 
Band aufnehmen. Dazu drückt 
man die Taste 'W' und 'ENTER'. 
Der Computer fragt jetzt nach der 
Startadresse. 

Es wird 7B00 eingegeben. Hat 
man sich vertippt, drückt man 
'BREAK' und wiederholt die 
Eingabe. Ist die Adresse einge- 
geben, fragt der Rechner die End- 
adresse ab. Hier gibt man 7DDB 
ein. Nun muß nur noch der Entry- 
Point eingegeben werden, wel- 
cher bei 7B66 liegt, und die 
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Aufnahme beginnt. Vorher sollte me, die mit dem Monitor "MINI- Erst- aufnehmen, dann starten, 
natürlich die Cassette vorbereitet MON" aufgenommen werden, er- Sollte nämlich ein Fehler ein- 
werden und der Recorder auf halten den Namen "Ml NI MO", gegeben worden sein, stürzt der 
Aufnahme stehen. Nach kurzer so auch die eben gemachte Auf- Rechner ab und die Arbeit war 
Zeit meldet sich der Computer nähme. umsonst. 

wieder mit COMMAND und eine Um ein Maschinenprogramm Bleibt zum Schluß nur zu sa- 
weitere Eingabe kann gemacht aus der GENIE-DATA in den gen: Viel Geduld beim Tippen, 
werden. Mit dem C-Befehl sollte Computer einzugeben, wird der viel Spaß beim Probieren, und 
die gemachte Aufnahme noch 1 -Befehl benutzt. Hierbei darf wer den Monitor "MINIMON" 
kontrolliert werden. das Programm natürlich nicht in erweitert hat, möchte sich mal 

Jetzt hat man einen Monitor, dem Speicherbereich liegen, in bei mir melden. Meine Adresse: 
der jederzeit mit SYSTEM einge- dem der Monitor selbst liegt. Martin Höh, Unter Krahnenbäu- 
laden werden kann. Alle Program- Logo! Auch hier gilt wieder: men 6, 5000 Köln 1 . 

0 REM 

1 REM + + + MINIMON + + + 

2 REM von Martin Hoeh 

3 REM 

4 REM 

5 REM 
10 CLS 
20 P=3 1488 

| 30 FOR 1=0 TO 66 

1 40 FOR Q= 1 TO 11 

| 50 READ X : Y=Y+X 

60 NEXT Q 
70 READ Z 

80 IF Y<> Z THEN PRINT"++ ERROR ++ Check Line" ; 1*10+ 1000 : END 
90 Y=0 
100 NEXT I 

110 RESTORE : FOR 1=0 TO 66 
120 FOR Q=1 TO 11 
130 READ X 
140 POKE P , X 
150 P=P+1 
160 NEXT Q 

170 READ Z 

180 NEXT I 

200 POKE 16526 f 102 

210 POKE 16527 , 123 

220 X=USR ( 0 ) 

230 REM 


1000 

DATA 

195, 

102, 

123, 

42, 

42, 

42, 

32, 

77, 

73, 

78, 

73, 

879 

1010 

DATA 

77, 

79, 

78, 

32, 

40, 

86, 

69, 

82, 

83, 

73, 

79, 

778 

1020 

DATA 

78, 

32, 

49, 

46, 

51, 

41, 

32, 

42, 

42, 

42, 

13, 

468 
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1030 

DATA 

66, 

89, 

32, 

77, 65, 

82, 

84, 

73, 

78, 

32, 

72, 

750 

1040 

DATA 

79, 

69, 

72, 

32, 47, 

32, 

49, 

57, 

56, 

51, 

32, 

576 

1050 

DATA 

47, 

32, 

75, 

79, 69, 

76, 

78, 

13, 

13, 

67, 

79, 

628 

1060 

DATA 

77, 

77, 

65, 

78, 68, 

63, 

32, 

34, 

13, 

60, 

69, 

636 

1070 

DATA 

82, 

82, 

79, 

82, 62, 

13, 

o, 

83, 

84, 

65, 

82, 

714 

1080 

DATA 

84, 

34, 

69, 

78, 68, 

34, 

69, 

78, 

84, 

82, 

89, 

769 

1090 

DATA 

34, 

66, 

13, 

205,201, 

1, 

33, 

192, 

63, 

34, 

32, 

874 

1100 

DATA 

64, 

33, 

3, 

123,205, 

167, 

40, 

24, 

12, 

33, 

74, 

778 

1110 

DATA 

123, 

205, 

167, 

40, 33, 

63, 

123, 

205, 

167, 

40, 

205, 

1371 

1120 

DATA 

248, 

1, 

49, 

253,127, 

33, 

100, 

123, 

6, 

1, 

205, 

1146 


1130 DATA 217, 5, 58,100,123,254, 66,19.4, 60,124,195,1396 
1140 DATA 204, 6, 79,203, 63,203, 63,203, 63,203, 63,1353 
1150 DATA 205,177,123, 95,121,230, 15,205,177,123, 87,1558 
1160 DATA 201,198, 48,254, 58,248,198, 7,201,205, 73,1691 
1170 DATA 0,254, 1,202,125,123,201, 62, 32,195, 51,1246 
1180 DATA 0, 33, 84,123,205,167, 40,195, 12,124,205,1188 
1190 DATA 185,123,254, 48,250,208,123,254, 58,250,231,1984 
1200 DATA 123,254, 65,250,208,123,254, 71,242,208,123,1921 
1210 DATA 245,205, 51, 0,241,254, 58,242,244,123,230,1893 
1220 DATA 15,201,230, 15, 60,246, 8,201,205,208,123,1512 
1230 DATA 203, 39,203, 39,203, 39,203, ' 39, 245,205, 208, 1626 
1240 DATA 123,209,178,201,205,194,123,205,250,123,103,1914 
1250 DATA 205,250,123,111,195,194,123,245,205,194,123,1968 
1260 DATA 241,205,156,123,213,123,205, 51, 0,209,122,1648 
1270 DATA 195, 51, 0, 62, 13,205, 51, 0,124,205, 31, 937 
1280 DATA 124,125,205, 31,124,195,194,123,254, 68,194,1637 
1290 DATA 85,124,205,199,123,205, 44,124, 6, 16,126,1257 
1300 DATA 205, 26,124, 35, 16,249,205,185,123, 24,239,1431 
1310 DATA 254, 65, 32, 27,205,199,123,205, 44,124, 6,1284 
1320 DATA 48,126,237, 91, 32, 64, 18, 62, 25,205, 51, 959 
1330 DATA 0, 35, 16,242,205,185,123, 24,232,254, 73,1389 
1340 DATA 32, 22,205,199,123,205, 44,124,126,205, 26,1311 
1350 DATA 124, 62, 94,205, 51, 0,205,250,123,119, 35,1268 
1360 DATA 24,237,254, 84, 32, 44,205,199,123,205, 44,1451 
1370 DATA 124,126,205, 26,124,205,194,123,126,237, 91,1581 
1380 DATA 32, 64, 18, 62, 25,205, 51, 0, 62,197,205, 921 
1390 DATA 51, 0,205,185,123,119,245,205, 51, 0,241,1425 
1400 DATA 205, 26,124, 35, 24,215,254, 74, 32, 14,205,1208 
1410 DATA 199,123,205,201, 1, 49,253,127, 1,102,123,1384 
1420 DATA 197,233,254, 76, 32, 78, 62,119, 50, 7,125,1233 
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1430 

DATA 

205,147, 2,205, 53, 2,254, 85, 

32, 

249, 

6 , 124C 

1440 

DATA 

6,205, 53, 2,205, 51, 0, 16, 

248, 

205, 

44,1035 

1450 

DATA 

2,205, 53, 2,254,120, 40, 31, 

254, 

60, 

32,1053 

1460 

DATA 

245,205, 53, 2, 71,205, 20, 3, 

133, 

79, 

205,1221 

1470 

DATA 

53, 2, 0, 35,129, 79, 16,247, 

205, 

53, 

2, 821 

1480 

DATA 

185, 40,218,195,119,123,205, 20, 

3, 

205, 

44,1357 

1490 

DATA 

124,205,248, 1,195,125,123,254, 

67, 

32, 

6,1380 

1500 

DATA 

175, 50, 7,125, 24,173,254, 85, 

32, 

20, 

62,1007 

1510 

DATA 

63,205, 51, 0,205, 12,124,205, 

175, 

15, 

195,1250 

1520 

DATA 

125,123, 0,123,220, 0,102,123, 

254, 

87, 

194,1351 

1530 

DATA 

119,123,205,199,123, 34, 62,125, 

33, 

90, 

123,1236 

1540 

DATA 

205,167, 40,205, 12,124, 34, 64, 

125, 

33, 

94,1103 

1550 

DATA 

123,205,167, 40,205, 12,124, 34, 

66, 

125, 

42,1143 

1560 

DATA 

64,125,237, 91, 62,125,175,237, 

82, 

35, 

34,1267 

1570 

DATA 

64,125,205,132, 2, 62, 85,205, 

100, 

2, 

33,1015 

1580 

DATA 

7,123, 6, 6,126,205,100, 2, 

35, 

16, 

249, 875 

1590 

DATA 

42, 62,125, 17, 65,125, 26,183, 

40, 

8, 

61, 754 

1600 

DATA 

18,175,205,186,125, 24,244, 58, 

64, 

125, 

183,1407 

1610 

DATA 

40, 3,205,186,125, 62,120,205, 

100, 

2, 

42,1090 

1620 

DATA 

66,125,125,205,100, 2,124,205, 

100, 

2, 

205,1259 

1630 

DATA 

248, 1,195,125,123, 71, 62, 60, 

205, 

100, 

2,1192 

1640 

DATA 

120,205,100, 2,125,205,100, 2, 

79, 

124, 

205,1267 

1650 

DATA 

100, 2,129, 79,126,205,100, 2, 

129, 

79, 

35, 986 

1660 

DATA 

16,247,195,100, 2, 0, 0, 0, 

o. 

o, 

0, 560 


Hypothek 


Hier ist ein Programm, das jeder 
haben muß. Wer sich nicht für 
die Hypothekenberechnung inte- 
ressiert, der braucht die Routine, 
die es ermöglicht, den Cursor auf 
vorbestimmte Punkte innerhalb 
einer Maske zu setzen, ohne 
diese zu zerstören. Somit können 
an jeder Stelle Daten eingege- 
ben werden. Zusätzlich kann die 
Länge der Strings bestimmt wer- 
den, an deren Ende der Cursor 


automatisch zum nächsten Punkt 
springt. Wird bei der Eingabe 
die Länge nicht erreicht, geht es 
mit RETURN weiter. Es können 
alphanumerische Daten verarbeitet 
werden. 

Wird für Video-Genie und TRS- 
80 das komplette Programm ver- 
wendet, müssen die Befehle 
STRING$(n,n), PRINTan, also 
die Maske, dem Bildschirm an- 
gepaßt werden. Colour ist zu 


entfernen. PEEK(n) 'Aktuelle' set- 
zen. Die Änderung der Hard- 
copy ist aus dem Listing ersicht- 
lich. 

Zusammen mit dem Programm 
'HYPOTHEK', müßte ich das 
Ganze eigentlich kommerziell nut- 
zen. Ich weiß aber aus eigener 
Erfahrung, daß fast alle Häusle- 
bauer, Träumer und sonstige 
Hypotheknehmer 'arme Schluk- 
ker' sind. Meine mitleidvolle 


SOFTWAR E 
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Seele hat mich also gezwungen 
das Programm zu veröffentlichen. 
Hier ist es: 

Nach dem Starten wird die Maske 
erstellt. Dann fordert das Pro-, 
gramm die Summe der aufzu- 
nehmenden Hypothek an (SUM- 
ME). Danach wird zu (Zins- 
satz in %) gesprungen, der nun 
eingegeben wird. Anschließend 
geht der Sprung zum (Tilgungs- 
satz in %), nach dieser Eingabe 
verlangt der Rechner den Til- 
gungszyklus (Laufzeit bei n Mo- 
natstilgung). Entweder monatlich 
= 1 oder 1/4 jährlich =3, 1/2 
jährlich = 6. 

Gemeint ist hiermit,, daß Sie 
zwar monatlich an die Bank 
zahlen, diese aber evtl. 1/4 o. 
1/2 jährlich mit Ihrem Schuld- 
konto abrechnet. 

Jetzt werden errechnet: 

Die monatlichen Zinsen 
Die monatliche Tilgung 
Die monatlichen Zinsen und Til- 
gung 

Die Laufzeit der Hypothek in 
Jahren 

Die Gesamtanzahl der Til- 
gungszyklen (GT) 

Die Gesamtzinsen der Laufzeit 
(GZ), 'hier quellen einem die 
Augen' 

Dazu wird noch die laufende 
Abnahme der Zinsen und die 


gleichzeitige Zunahme der Tilgung 
pro Tiigungszyklus angezeigt. 

Am Ende der Rechnung er- 
scheint unter der Maske ein 
Menue: 

Neue Hypothek - 1 
Hardcopy — 2 

Änderung der Monatsbelastung -3 
Bei 1 Neustart 

Bei 2 Hardcopy der Maske mit 
Daten auf dem Drucker. 

Bei 3 kann die Monatsbelastung 
geändert werden. 

Es ist ja möglich, daß Ihr Chef 
Ihnen auf die Schulter klopft 
und Ihr Gehalt erhöht, nun 
können Sie die Tilgung herauf 
setzen. Das Programm fordert 
die Eingabe der (Aktuellen SUM- 
ME) an. Das ist die augenblick- 
liche Restsumme Ihrer Hypothek, 
sie geht aus der Bankabrechnung 
hervor. Danach den (Zinssatz in 
%) eingeben. Jetzt die bisherige 
monatliche Belastung plus Ände- 
rung, also: Zins+Tilgung+Erhö- 
hung in I DM ! eingeben. (Mob. 
+ Aend.i.DM) 

Errechnet werden: 

Die neuen monatlichen Zinsen 
Die neue monatliche Tilgung 
Die neue monatliche Gesamtlei- 
stung 

Die neue verkürzte Laufzeit 
Dazu die Daten unter Befehl 1 . 

Falls Sie einen Onkel in 


Amerika beerbt haben und nun 
eine einmalige Sondertilgung vor- 
nehmen wollen, die monatliche 
Belastung aber unverändert bei- 
behalten möchten, nehmen Sie 
Befehl 3. Von der augenblick- 
lichen Resthypothek ziehen Sie 
die Summe der Sondertilgung 
ab und geben das Ergebnis als 
(Aktuelle SUMME) ein. Den 
Rest wieder wie vom Programm 
gefordert. Sie erhalten nun die 
neue verkürzte Laufzeit. Soll bei 
einer Sondertilgung die Laufzeit 
belassen werden, um die monat- 
liche Belastung zu verringern, 
Befehl 1 anwenden. Die Sonder- 
tilgung von der Grundsumme, 
daß ist die Summe der aufge- 
nommenen Hypothek, abziehen 
und unter (SUMME) eingeben. 
Weiter wieder wie vom Programm 
gefordert. 

Wird nach dem Laden und 
Starten des Programms die Maske 
2 gewünscht, an erster Stelle von 
(SUMME) .SHIFT * RETURN 
drücken. Das Programm springt 
zum Menue. Mit SHIFT KLAM- 
MERAFFE kann jederzeit ge- 
stoppt werden um sich Zwischen- 
ergebnisse anzusehen. 

Ich hoffe, daß Ihnen dieser 
kleine Durchblickerkurs von Nut- 
zen sein wird. 

Gerhard Puzicha 


10 CLSs C0L0UR1 

20 PR INT "COPYRIGHT BY * GERHARD PUZICHA *" 

30 PR INT" WALHO VENER STR. 25 4047 DORMAGEN" : F0RN=0T0600: NEXT: CLS 
40 CLEAR 1000:DEFSTR A-B: DEFINT L * GEHOERT NOCH ZUR ROUTINE 

50 C0L0UR3 

60 ■’ MASKE 

70 PRINTSTRING* ( 14? 35) S : C0L0UR6: PRINT" HYPOTHEK " 

80 C0L0UR3: PRINT124, STRING* ( 16, 35) 

90 FOR U=79 TO 839 STEP 40 

100 F’RINTIU, CHR* (35) : NEXT U ’ UMRADUNG DER MASKE 

HO FOR V=40 TO 800 STEP 40 
120 PRINTiV, CHR* (35) s NEXT V 
130 PRINT§840, STRING* <40, 35) 

140 COLOUR 2: PR INT §97, 5 "SUMME" : COLOUR 1 
150 PRINTS216, "======" 

160 PRINTS241 , " Zinssatz in 7." 

170 PRINTS263, "Tils.satz in 7.“ 

180 PRINT§402, "Zins p. M onat" 

190 PRINTS423, "Tils.P. Monat" 

200 PRINTS570, "<== - + ==>" 

210 IFPEEK ( 17496) =65THENPRINT§263, "Mob.+ Aend. i . DM" : PRINT§356, "DM" 
220 PRINTS532, "Zins + Tilsuns" 
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230 PRINTS6B4, "Laufzeit bei ? Monatstilgung" 

240 * ZIELPUNKTE, STR I NGL AENGE FUER ROUTINE 

250 PRINT§176, ""S 'ZIELPUNKT (SUMME) 

260 L=6s GOSUB 750 ' L=LAENGE VON (SUMME) 

270 S=VAL(B*) 

280 IF PEEK ( 17584) “42 THEN GOTO 670 ' 17584=SPEICHERPL. DER ERSTEN- 
290 PRINT§325, ""3 'ZAHL VON SUMME, 42=STERNCHEN 

300 L=4s GOSUB 750 
310 Z=VAL(B*) 

320 PRINT§346, ""3 
330 L=7: GOSUB 750 . 

340 T=VAL(B*) 

350 PRINT§698, " 

360 PRINTS698, ""3 
370 L=2: GOSUB 750 
380 TZ=VAL(B*> 

390 IF TZ=1 THEN X=12:G0T0 430 
400 IF TZ=3 THEN X=4:G0T0 430 
410 IF TZ=6 THEN X=2:G0TT0 410 
420 GOTO 350 

430 =• DIE RECHNUNG 

440 Z1=(S/100)*Z/12 

450 PR I NT §482 , US I NG " #### . ## " 3 Z 1 

460 IF PEEK (17496) =65 THEN T1=T-Z 1 5 G0T0480 

470 T1=(S/100)*T/12 

480 PRINT§509, USING"####. ##" 5 TI 

490 ZT=T1+Z 1 

500 C0L0UR8 3 PR I NT § 6 1 4 , US I NG " #### . ## " 3 ZT 3 : PR I NT " DM " : COLOUR 1 

510 ZT=ZT*TZ 

520 T1=T1*TZ 

530 J=0 

540 S=S-T 1 

550 J=J + 1 

560 R=J / X s C0L0UR2 : PR I NT § 774 , USING"##. ##" 3 Rs s COLOUR 1 s PRINT" Jahre" 
570 PRINT§ 122, "GT" 3 s C0L0UR2! PRINT J:COLOUR 1 
580 IF S<=0 THEN 670 
590 Z2= ( (S/ 1 00) *Z ) /X 

600 GZ=GZ+Z23 PRINTÜ46, "GZ " 3 : C0L0UR2 s PR INTUS ING "######.#" 3 GZ 
610 PRINT§562, USING"####. ##" 3 Z2 
620 T1=ZT-Z2 

630 PRINT§589, USING"####. ##“ 3 TI 

640 FOR N=0 TO 200:NEXT ’ GESCHWIND IGKEITSVERZOEGERUNG 

650 GOTO 540 

660 ' MENUE 

670 PRINT§8B0, "Neue Hypothek ==> 1 :Hardcopy ==> 2 " 

680 PRINT" Aenderung der Monatsbelastung ■==> 3 "3 
690 INPUT C 

700 IF C<1 OR 03 THEN GOTO 690 

710 IF 0=1 THEN RUN 

720 IF C=2 THEN GOTO 820 

730 IF C=3 THEN CLS: PRINTiBS, " Aktuel 1 e " : PRINTCHR* (28) 3 : GOTO 40 

740 ’ ROUTINE 

750 B=" " 3 PRINTCHR* (14)3 

760 A= INKEY*: IF A>="" AND A=CHR*(13> THEN PRINTCHR* ( 15) 3 : RETURN 

770 IF A>CHR* (31 ) AND LEN <B> KLTHENPRINTA,* : B=B+A 

780 IF B > " " AND A=CHR*(B> THEN PRINT A3 : B=LEFT* (B, LEN (B) -1 ) 

790 IF A=CHR* (24) THENPRINTSTRING* (LEN <B) , 8) 3 : B=" " 

800 IF LEN (B) =L THEN PRINTCHR* < 15) 3 s RETURN ELSE 760 


810 ' HARDCOPY 

B20 M= 17407 ' TEXTSPEI CHERPL . O 
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830 FOR Z=1T022 ’ ZEILENZAHL 

840 FOR Y=1T039 ' ZEICHEN PRO ZEILE 

850 M=M+ 1 ! F=PEEK ( M > : LPR I NTCHR* ( F > s 
860 NEXTY 

870 M=M+ 1 s F=PEEK < M > e LPR I NTCHR* ( F > 

880 NEXTZ 
890 GOTO 670 


GRAFIK 

ÜBERSETZER 


Sie haben sich sicher schon oft da- 
rüber geärgert, daß man beim Co- 
lour Genie Text und Grafik nicht 
mischen kann. Ausserdem kann 
man die Grafik-Befehle, wie z. B. 
PAINT, P.LOT und CIRCLE nicht 
im Schriftmodus benutzen. Diesen 
Nachteil versucht das folgende 
Programm zu mindern. Das Pro- 
gramm übersetzt ein Feld von 80 
mal 96 Punkten in eine Matrix, die 
aus 10 mal 12 programmierbaren 
Zeichen zusammengesetzt ist. Es 
werden jedoch nur die Farben 
Blau und Grün übersetzt, da nur 
jeweils das erste Bit abgefragt 
wird. 

Nun zum Programm: 

Die Initialisierung und die Siche- 
rung wurde in ähnlicher Form aus 
der GENIE DATA Nummer 4 
übernommen. In den Zeilen 1230 
bis 1260 werden die Disk-Befehle 

10 ORG 0BD80H 
20 ANFANG PUSH HL 
30 LD HL? 0F410H 

40 LD (-3067)? HL 

50 LD HL? 18432 

60 LD (-3069)? HL 

70 LD A? 12 

80 LD (-3072) ?A 

90 LD A? 10 

100 LD (-3071) ?A 

110 LD A? B 

120 LD (-3070) ?A 

130 LD HL? 17408 


GET, PUT und CLOSE für das 
Programm umbelegt. In den As- 
sembler-Zeilen 20 bis 160, die mit 
dem Befehl GET aufgerufen wer- 
den können, werden die Daten, 
die zur Übersetzung benötigt wer- 
den, eingelesen. In die Adressen 
-3069 bis bis 68 wird der Wert 
geladen, der die linke obere Ecke 
des zu übersetzenden Feldes an- 
gibt. In den Adresse —3065 und 
—3064 steht der Wert, der auf die 
linke obere Ecke des Zielfeldes 
zeigt. Die restlichen Adressen 
werden zur internen Verarbeitung 
benötigt. Mit dem Befehl CLOSE 
wird eine Übersetzung gestartet, 
die bei der Adresse 18432 im 
FGR-Modus beginnt und das Ziel- 
feld in die linke obere Ecke des 
LGR-Bildschirms legt. Um die 
Schreib-Lese-Felder versetzen zu 
können, gibt es die Befehle GET 


und PUT. Mit dem Befehl GET 
werden zum Übersetzen nötige 
Daten organisiert. Danach können 
die Feldadressen im Basic durch 
Pokes geändert werden. Danach 
wird die eigentliche Übersetzung 
mit dem Befehl PUT gestartet. Da 
bei der Übersetzung die Rechen- 
und Feld-Daten jedesmal zerstört 
werden, muß vor jedem PUT ein 
GET Aufruf erfolgen. Der CLOSE 
Befehl beinhaltet nur die Befehle 
GET und PUT hintereinander 
(Zeilen 1180-1200). 

In den Zeilen 230 - 470 läuft 
die eigentliche Übersetzung. In 
den Zeilen 180 - 220 und 480 - 
830 stehen die Schleifen, die für 
die Übersetzung nötig sind. In den 
Zeilen 840 - 1070 wird das Feld in 
den LGR Modus übertragen. 

Hans-Ulrich Schlieben 

140 LD (-3065)? HL 

150 POP HL 

160 RET 

170 STARTN PUSH HL 

180 LOOPOO LD HL? (-3069) 

190 LD D? (HL) 

200 INC HL 

210 LD E? (HL) 

220 LD A? 0 

230 BIT 6? D 

240 JP Z ? WE I TOO 

250 SET 7? A 

260 WEITOO BIT 4?D 
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270 

JP Z , WEIT01 

870 

LD (-3070) , A 

2B0 

SET 6,A 

880 

LD B, 130 

290 

WE I TO 1 BIT 2,D 

890 

LD HL, (-3065) 

300 

JP Z , WEIT02 

900 LQDP10 NOP 

310 

5ET 5,A 

910 

LD (HL) , B 

320 

WEIT02 BIT 0,D 

920 

INC B 

330 

JP Z , WE I T 03 

930 

LD A, (-3070) 

340 

SET 4,A 

940 

DEC A 

350 

WEIT03 BIT 6, E 

950 

JP Z, AUSGAB 

360 

JP Z , WE I T 04 

960 

LD (-3070), A 

370 

SET 3, A 

970 

INC HL 

380 

WEIT04 BIT 4,E 

980 

JP LOOP 10 

390 

JP Z,WEIT05 

990 AUSGAB LD DE, 31 

400 

SET 2,A 

1 000 

ADD HL, DE 

410 

WEIT05 BIT 2,E 

1010 

LD A, (-3072) 

420 

JP Z WE I T06 

1 020 

DEC A 

430 

SET 1,A 

1030 

JP Z , RUECK 

440 

WEIT 06 BIT 0,E 

1040 

LD (-3072), A 

450 

JP Z , WE I T 07 

1050 

LD A, 10 

460 

SET 0? A 

1060 

LD (—3070) , A 

470 

WE I T 07 LD HL, (-3067) 

1070 

JP LOOP 10 

480 

LD (HL) , A 

1 080 

RUECK POP HL 

490 

INC HL 

1090 

RET 

500 

LD (-3067) , HL 

1100 

INIT LD A, 0C9H 

510 

LD A, (-3070) 

1110 

LD (41E2H) , A 

520 

DEC A 

1120 

CALL ANFANG 

3«5U 

JP Z , SCHL01 

1130 

LD A, 0 

540 

LD (-3070), A 

1140 

LD ( 43 1 CH ) , A 

550 

LD DE, 40 

1150 

LD HL, ANFANG 

560 

LD HL, (-3069) 

1160 

DEC HL 

570 

ADD HL, DE 

1170 

JP 102H 

580 

LD (-3069), HL 

1180 

KOMPLE CALL ANFANG 

590 

JP LGOPOO 

1190 

CALL STARTN 

600 

SCHL01 LD A, 8 

1200 

RET 

610 

LD (-3070) , A 

1210 

ORG 41E2H 

620 

LD A, (-3071) 

1220 

JP INIT 

630 

DEC A 

1230 

ORG 417FH 

640 

JP Z , SC HL 02 

1240 

JP ANFANG 

650 

LD (-3071 ),A 

1250 

JP STARTN 

660 

LD DE, 278 

1260 

JP KOMPLE 

670 

LD HL, (-3069) 

1270 

END INIT 

680 

SCF 



690 

CCF 



700 

SBC HL, DE 



710 

LD (-3069), HL 



720 

JP LOOPOO 



730 

SCHL02 LD A, 10 



740 

LD (-3071 ),A 

Die nächste GENIE DATA erscheint am 

750 

LD A, (-3072) 


15. Januar 1984. 

760 

DEC A 



770 

JP Z , NLADEN 


* 

780 

LD (-3072), A 


790 

LD HL, (-3069) 


800 

LD DE, 22 



810 

ADD HL, DE 

Anzeigenannahmeschluß für Nummer 6 ist 

820 

LD (-3069), HL 

der 10. Dezember 1983. 

830 

JP LDOPOO 



840 

NLADEN LD A, 12 



850 

LD (-3072) , A 



860 

LD A, 10 
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'<%•****• 


STEIGEN SIE IN IHREN HELIKOPTER I Lassen Sie sich von dem faszinierenden Geräusch des Motors Ihrer Ma- 
schine begeistern I Es geht durch die Lüfte über Landschaften die flach sind, über rauhes Gelände und Berge. Ausge- 
rüstet ist Ihr Helikopter mit den besten Waffen (Sie werden sehr überrascht sein I). Wenn Sie Ihre Kanonen und Bom- 
ben treffsicher einsetzen, dann haben Sie die Möglichkeit unterwegs zu tanken. Sie können waagerecht, senkrecht 
und auch schräg fliegen. Es ist einfach nervenzerfetzend! Dann geht der Flug weiter durch eine lange Felsengrotte 
und Berglandschaften zu einer Stadt. Unterwegs können Sie die in Not geratenen Menschen retten, bei guten fliege- 
rischem Können. Die Menschen winken Ihnen zu. Vorsicht vor den Feinden, die auch nicht schlecht schießen, die 
Grafik und die abwechselnde Farbenpracht wird Sie begeistern. Dann kommt nach längerem Flug und weiteren inte- 
ressanten Landschaften ein künstlicher Tunnel. Bis Sie dann nach acht Spielstufen den weißen Elefanten der Maha- 
rani sichten, den Sie ganz niedrig überfliegen müssen. Sollten Sie dieses Ziel erreichen, dann erhalten Sie einen Son- 
derbonus von 10.000 Punkten. Das Spiel ist eine einzige Nervenanspannung und großes Können muß bewiesen wer- 
den denn sonst sehen Sie den weißen Elefanten nie! Dieses Spiel ist echt seine Dollars wert und bestimmt noch etwas 


io versch. Spiel-Szenen, ganz tolle Grafik, Top Sound! 
GORILLA: In Multi-Colour und HUBI-Vision 
GORILLA: Er sollte auf Ihrem Bildschirm sein! 

Ein Superspiel, was Ihnen immer wieder große 
Freude bereitet und fasziniert! 
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